Recorrer todos los formularios de mi Aplicacion

[rgstuamigo]

Hola amigos ,quisas ya este tema ya se a tratado en alguna otra ocacion,pero he buscado en el foro y no he encontrado algo acorde a mis necesidades y al parecer es muy facilito hacerlo.(¡Que malo que soy..!)
Bueno.. ¿como se hace para recorrer todos los formularios de mi aplicacion y poder habilitar o deshabilitar algunos controles(botones)de todos los formularios ?, ya que mis formularios todos la mayoria de ellos tienes casi la misma interfaz y los mismos nombres de componentes, ojo se hacerlo para un formulario, pero no se como hacer para obtener referencias de los demas ya que son Muchos,.
Bueno para un solo form, lo hago asi (digamos que quiero deshabilitar un boton con nombre Button1);

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
var i:Byte;
begin
    i:=0;
     while ( ido
      begin
       if (Form2.Controls[i] is TButton) and
           ((Form2.Controls[i] as TButton).Name='Button1')then
           (Form2.Controls[i] as TButton).Enabled:=False;
           Inc(i);
      end;

end;

Bueno eso tendria que ser para todos los formularios pero eso es lo que no se como seria,debe haber una forma de tener una lista(array talves)de todos los formularios de la aplicacion (talves usando el objeto Application pero cual metodo?) y asi hacerme un metodo que haga lo que deseo.
Gracias de antemano por su colaboracion....
Saludos a todos...
EDITO: La parte del While no se por no se ve bien parece las etiquetas de la sintaxis para delphi esta un poco mala, he trataodo de editarle y sigue asi, de todas forma lo pongo aqui haber si sale bien:

Código Delphi [-]
while ( i