Delphi-Quellcode:
if countCombobox = 0 then
countCombobox := 1;
i := anz_bedingungen;
SetLength(mybox1, i+1);
SetLength(mybox1[i],3);
mybox1[i][countCombobox] := TComboBox.Create(Self);
mybox1[i][countCombobox].Parent := Form1.PageControl1.ActivePage;
mybox1[i][countCombobox].Text := titel;
mybox1[i][countCombobox].Left := left;
mybox1[i][countCombobox].Top := 38+(mybox1[i][countCombobox].Height+10)*i;
mybox1[i][countCombobox].Width := breite;
mybox1[i][countCombobox].Items := inhalt;
countCombobox := countCombobox +1;
if countCombobox > 3 then
countCombobox := 1;
anz_bedingungen wird natürlich raufgezählt