[[seoane]]

Prueba con esto:

Código Delphi [-]
var
  i: integer;
begin
  for i:= 0 to Screen.FormCount - 1 do
    ShowMessage(Screen.Forms[i].Name);
end;