var

  MyForm: TclForm;

  MyScrollBox: TclVertScrollBox;

  MyLabel: TClProLabel;

  i: Integer;

{

  MyForm = TclForm.Create(Self);

  

  //Kaydırma Kutusu (Eğer liste uzarsa aşağı kaydırabilmek için)

  MyScrollBox = MyForm.AddNewVertScrollBox(MyForm, 'MyScrollBox');

  MyScrollBox.Align = alClient;

  

 //50 adet label

  for (i = 1 to 50)

  {

    // Önemli: Her etiketin adı benzersiz olmalı -> 'Lbl_1', 'Lbl_2' gibi

    MyLabel = MyForm.AddNewProLabel(MyScrollBox, 'Lbl_' + IntToStr(i), 'Satır Numarası: ' + IntToStr(i));

    

    MyLabel.Align = alTop;  

    MyLabel.Height = 50; 

    MyLabel.Margins.Top = 5;  

    MyLabel.Margins.Left = 10; 

    MyLabel.Margins.Right = 10;

    

    MyLabel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4DB6AC'); 

    MyLabel.clProSettings.FontColor = clAlphaColor.clWhite;

    MyLabel.clProSettings.FontSize = 18;

    MyLabel.clProSettings.RoundHeight = 10; 

    MyLabel.clProSettings.RoundWidth = 10;

    MyLabel.clProSettings.TextSettings.Font.Style = [fsBold];

    

    MyLabel.SetclProSettings(MyLabel.clProSettings);

  }

  MyForm.Run;

}