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