Hola Oscar.
Fijate si te sirve de este modo:
Código Delphi
[-]
procedure ControlsOn(AForm: TForm; const Active: Boolean);
var
i: Integer;
begin
for i := AForm.ControlCount-1 downto 0 do
AForm.Controls[i].Enabled := Active;
end;
Ej. de uso:
Código Delphi
[-]
begin
ControlsOn(Form1, False);
Saludos