[yusnerqui]

Esto es una adaptación de un código que tenía en una aplicación mdi, que a la ves es una adaptación de un código que saqué de la cara oculta del delphi 4 que trata sobre el tema.

Te sujiero que busques en ese libro si lo de abajo no te funciona.

Código Delphi [-]
Procedure TPrincipal.BuscaForma;
var i : Byte;
begin
 if MDIChildCount > 0 then
   for i := MDIChildCount -1 downto 0 do
     if MDIChildren[i] is TForm4 then     
       begin        
         TForm4(MDIChildren[i]).Show;
         Exit;
       end;
Form4:=TForm4.Create(Application)
end;

Saludos