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;