Funcion generica para crear varios forms

[[jcarteagaf]]

Yo uso esta funcion

Código Delphi [-]
function MostrarForma(TfrmClass: TFormClass) : boolean;
begin
  with TfrmClass.Create(Application) do
  begin
    result := ShowModal = mrOk;
    Free;
  end;
end;

y la uso asi

Código Delphi [-]
MostrarForma(TfrmVentas);

Espero que te sirva.