Передавая класс в качестве параметра процедуры в Delphi XE

мне нужно было сделать что-то вроде этого:

procedure A(type_of_form);
var form: TForm;
begin
  form := type_of_form.Create(application);
  form.showmodal;
  freeandnil(form);
end;

Я сделал это для каждой динамически создаваемой формы:

form1 := TForm1.Create(application);
form1.showmodal;
freeandnil(form1);

То, что я буду делать внутри процедуры A, более сложно, но проблема остается в том, как сделать создание формы в некотором роде общим. Возможно, что-то с оператором @ ... правда не знаю.

Спасибо за любое предложение!