[roman]

Lo que pasa es que TComponent es una clase muy general y algunas propiedades sólo existen en clases descendientes. Tendrías que hacer un moldeo a una clase más afín, por ejemplo:

Código Delphi [-]
for i:=0 to (ComponentCount-1) do
begin
  if Components[i] is TControl then
    with TControl(Components[i]) do
    begin
      {
        Aquí ya puedes acceder a las propiedades específicas de TControl
        y sus descendientes, entre las que se cuentan Top, Left, Visible, etc.
      }
    end;
end;

Por cierto, ¿por qué pones form1 en el código anterior? No es una buena práctica que el código de una clase tenga referencias a una variable particular de esa clase.

// Saludos