[ecfisa]

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