Recorrer todos los formularios de mi Aplicacion

[rgstuamigo]

Ok Gracias amigo Delphius parece que funciona.
Pero mira la curiosidad que se me pego; ¿que tiene que ver Screen con los Form? a mi parecer la propiedad Forms deberia ser parte del objeto
Application Bueno es cosa de mi nomas.
Otra cosa que me resulto curiosa fue que que el objeto Application tiene una propiedad Components que segun yo lo entendia que suponia que eran todos y absolutamente todos los componentes de la aplicacion ,claro esta por llamarse Application pero al parecer no es asi si no que serian solo los formularios(vaya ¿no?¿quien entiende?) de la aplicasion claro con la excepcion de que el Components[0] no se sabe cual es, pues la unica diferencia que veo entre Screen.FormsCount y Application.ComponentCount seria (segun yo) que el segundo tiene uno mas,es decir aparte de tener todos los formularios tiene uno mas ¿Pero quien es es uno mas?, pues no lo se.
por que ni siquiera se puede saber su nombre ni para que se utiliza.
Yo lo probe con este codigo:

Código Delphi [-]
procedure TForm1.Button8Click(Sender: TObject);
var i:Byte;
begin
 for  i:=0  to Application.ComponentCount-1 do
  begin
  ShowMessage(Application.Components[i].Name);
 end;
end;

Seguro habra algun GURU que nos explique,.
Saludos y muchas gracias....