Procedura do dynam. tworzenia komponemtów

Chciałbym stworzyć taką procedurę, która umożliwiałaby tworzenie dynamicznych komponentów.

Procedure TworzKomponent(NazwaKomponentu: .....; JakiKomponent: .....; Rodzic: .....);
Begin
  NazwaKomponentu     := JakiKomponent.Create(Rodzic);
  NazwaKomponentu.Parent:= Rodzic;
End; { koniec procedury } 

Jeśli można taką procedurę stworzyć to co mam wpisać w miejsca wykropkowane?
Za pomoc dziękuję i pozdrawiam

zerknij do hierarchii obiektów, takową masz w helpie, dowiesz się, że na samej górze stoi TObject.

[dopisane]
a poniżej TObject stoi kilka innych obiektów, jeśli nie działał jeden, to mogłeś spróbować z następnym.

zerknij do hierarchii obiektów, takową masz w helpie, dowiesz się, że na samej górze stoi TObject.

Gdybym nie próbował tego TObject to zapewne nie byłoby tu tego zapytania

procedure Utworz(var Komponent: TComponent; Klasa: TComponentClass; Rodzic: TComponent);
begin
  Komponent := Klasa.Create(Rodzic);
end;

Jezeli chcesz wykorzystac wlasciwosc Parent, to musisz juz kontrolke tworzyc (czyli juz specyficzna wersje komponentu):

procedure Utworz(var Komponent: TControl; Klasa: TControlClass; Rodzic: TWinControl);
begin
  Komponent := Klasa.Create(Rodzic);
  Komponent.Parent := Rodzic;
end;

var
  B: TButton;
begin
  Utworz(TControl(B), TButton, Form1);
end;

Dziękuję Dryobates, za pomoc.
[cya]