Elemente zur Laufzeit erzeugen

[em-sigma]

Hallo,

ich bin gerade dabei ein Programm zu schreiben, das fast alle Elemente zur Laufzeit selbst erzeugen soll (statt alles im Editor zusammenzuklicken).

z.B.:

Delphi-Quellcode:

   for i:=1 to 4 do begin
      GroupBoxX[i]:=tGroupBox.Create(TabSheet1);
      GroupBoxX[i].Parent:=TabSheet1;
      GroupBoxX[i].SetBounds(
        GroupCoords[i].L,
        GroupCoords[i].T,
        GroupCoords[i].W,
        GroupCoords[i].H
      );
      GroupBoxX[i].Caption:=GroupCoords[i].N;
      GroupBoxX[i].Tag:=i;
   end;
   for i:=5 to 8 do begin
      GroupBoxX[i]:=tGroupBox.Create(TabSheet2);
      GroupBoxX[i].Parent:=TabSheet2;
      GroupBoxX[i].SetBounds(
        GroupCoords[i].L,
        GroupCoords[i].T,
        GroupCoords[i].W,
        GroupCoords[i].H
      );
      GroupBoxX[i].Caption:=GroupCoords[i].N;
      GroupBoxX[i].Tag:=i;
   end;

Es gibt dafür ein Konstanten-Array (GroupCoords ist ein Array mit Records mit L,T,W,H,N) mit den entsprechenden Daten.
Leider muß ich bei Create und Parent das Ziel direkt angeben.

Gibt es eine Möglichkeit, wie ich die beiden Angaben auch im Record unterbringen kann?
Das würde den Code um einiges verkürzen.

Vielen Dank
Beste Grüße