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.