Procedimiento para llamar formas

[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;