[cloayza]

Intenta este codigo...

Código Delphi [-]
function MiForm(AppHandle:THandle):Boolean;
begin
       application.Handle:=AppHandle;
       With Tmiform.Create(Application) do
       begin
              ShowModal;
              Free;
       end;
      Result:=True;
end ;
exports Miform;
begin
end.

Para llamar a la Funcion MiForm

Código Delphi [-]
MiForm(Application.Handle);

Saludos