Código Delphi [-] For I := 0 to ComponentCount -1 do if (Components[i] is Tcontrol) then (Components[i] as TControl).Enabled :=False;
For I := 0 to ComponentCount -1 do if (Components[i] is Tcontrol) then (Components[i] as TControl).Enabled :=False;