Foros Club Delphi - Acceso a componentes

Hola, a ver si me explico bien, necesito acceder a las componentes de un formulario pero no conozco el nombre de estas ni el tipo, yo lo hago de este modo, por ejemplo este trozo de codigo intenta ocultar todas las componentes de un formulario al pulsar un boton:

Código:

  procedure TForm1.Button3Click(Sender: TObject);

  var

    NComponentes :integer;

    i :integer;

 clase :TClass

  begin

    i := 0;

    NComponentes := Form1.ComponentCount;

    while i < NComponentes do begin

         clase := Form1.Components[i].TClassType;

          with Form1.Components[i] as clase do

                 visible := False;

          i := i +1;

    end;

  end;

El codigo anterior no funciona, al ejecutarse se borra el formulario en la primera iteración, y lo que yo intento es borrar las componentes de este no el formulario. ¿Alguien conoce alguna forma de acceder a los componentes de un formulario sin saber el nombre ni la clase a la que pertenecen?

Gracias de antemano ;)