Procedimiento para llamar formas

[Luis]

Muchas gracias roman, voy a implementarlo.

[samantha jones]

procedure myshowmodal(aClass:TclassForm; aForm:TForm);
begin
if not assigned(aForm) then
aForm:=aClass.Create(Self);
try
aForm.Showmodal;
finally
freeandnil(aForm);
end;
end;

Espero te sirva

[rastafarey]

Código Delphi [-]
procedure ShowForma(TF:TClassForm);
Begin
  With TF.Create(Self) Do Try
    ShowModal;
  Finally
    Free; 
  End;  
End;

[argami]

otra opcion

Código Delphi [-]
 Procedure AbreForm(var Form:TForm; FormClase: TClassForm; AShowModal:Boolean = False);
 begin
  if not Assigned(Form) then
     begin
       Form := FormClase.Create(application);
         if AShowModal then
           Form.ShowModal
         else
           Form.Show;
   end else
   begin
     Form.bringtofront;
   end;
  end;