oder ohne FindComponent (dieses ist nicht so performant):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i, l : Integer;
begin
l := 0 ; // Bei Listbox Item 0 beginnen, also beim ersten Item
for i := 0 To ControlCount - 1 do // Durch alle Control der Form gehen
if Controls[i] is TGroupBox then // Falls das Control eine TGroupBox, dann
begin
if l > Listbox1.Count then Break; // nicht über das letzte Item der Listbox lesen
TGroupBox(Controls[i]).Caption := Listbox1.Items[l]; // Setzte Caption der Groupbox von Item[l]
Inc(l); // nächster Eintrag in der Listbox
end;
end;