Einen Typ an eine Function übergeben

[Frank Büchner]

Hallo !

Ist es möglich an ein Funktion einen Klassentyp zu übergeben ?

Bsp.:
procedure MakeForm(Form:TForm;[Name der Klasse]);
begin
if (Form as TForm)=nil then
begin
(Form as TForm):=[Name der Klasse].Create(Application);
end;
(Form as TForm).Show;
end;

mfg Frank Büchner