Лидеры

procedure TForm1.Button1Click(Sender: TObject); var AItem: TListBoxItem; ALabel: TLabel; i: integer; begin ListBox1.BeginUpdate; for i := 0 to 100 do begin AItem := TListBoxItem.Create(ListBox1); AItem.Parent := ListBox1; AItem.Height := 80; ALabel := TLabel.Create(AItem); // все контролы должны принадлежать AItem ALabel.Parent := AItem; // а parent может быть другим ALabel.Align := TAlignLayout.Top; ALabel.Height := 25; ALabel.Name := 'ALabelName' + Inttostr(i); ALabel.StyledSettings := [TStyledSetting.Family, TStyledSetting.Style]; ALabel.TextSettings.Font.Size := 20; ALabel.TextSettings.FontColor := TAlphaColorRec.Black; ALabel.Text := Inttostr(Random(100)); end; ListBox1.EndUpdate; end; procedure TForm1.ListBox1ItemClick(const Sender: TCustomListBox; const Item: TListBoxItem); begin if (Item.FindComponent('ALabelName' + Inttostr(Item.Index)) is TLabel) then Caption := (Item.FindComponent('ALabelName' + Inttostr(Item.Index)) as TLabel).Text; end;