[[maeyanes]]

Hola...

Como bien ya ha explicado ecfisa más arriba:

Código Delphi [-]
procedure ShowFormModal(AFormClass: TFormClass);
var
  AForm: TForm;

begin
  AForm := AFormClass.Create(nil);
  try
    AForm.ShowModal
  finally
    AForm.Free
  end
end;

// Para llamarla
ShowFormModal(TVentasFrm);

Saludos...