[ecfisa]

Hola.

Una forma sería:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
begin
  for i:= Screen.FormCount -1 downto 0 do
    if Screen.Forms[i].Name = 'Form2' then  // suponiendo que tu form se llame Form2
    begin
      Screen.Forms[i].Show;
      Exit;
    end;
  with TForm2.Create(Application) do Show;
end;

Un saludo.