[rocksoft]

Hola alebritez

Código Delphi [-]
// Para tu Unit.pas
Procedure ShowModalMod(aForm: TFormClass);
var
  SModal: TForm;
begin
  SModal := aForm.Create(nil); // Lo creas
  try
    SModal.showmodal; // o show a secas
  finally
    SModal.Free; // Lo libreas
  end;
end;

Código Delphi [-]
// Para tu MainUnit
procedure MainUnit.Action1Execute(Sender: TObject);
begin
ShowModalMod(TMyFormulario);
end;