[Seba.F1]

hola que tal ???
no se si entendi bien pero me parece que podes usar este codigo

Código Delphi [-]
procedure Tform1.Mostrar(AClass_TFormClass; Const AName:String);
var
   Ficha:TForm;
begin
       F:=Application.FindComponent(AName) as TForm;
       if Assigned(F) then
          F.show
       else
            AClass.Create(Application) ;
end;