lo solucione así, lo pongo por las dudas, no es lo mejor del mundo pero...anda
Código Delphi
[-]
procedure TDM.MostrarForm(AClass: TFormClass;ATag: integer);
begin
F:=Application.FindComponent(Copy(AClass.ClassName,2,255))as TForm;
Application.CreateForm(AClass,F);
with f do
try
Tag := ATag;
ShowModal;
finally
Free;
end;
end;