Deshabilitar todos los componentes de un formulario

  for i:=0 to ComponentCount-1 do
    if Components[i] is TControl then TControl(Components[i]).Enabled:=False;