Const
  Adet = 50;

Var
  MyForm: TclForm;
  Area: TCLVertScrollBox;
  Ch: TCLCheckBox;
  i: Integer;

Begin
  MyForm:= TclForm.Create(Self);
  
  Area:= MyForm.AddNewVertScrollBox(MyForm, 'area');
  
  Area.align:= alClient;
  
  For i:= 1 to Adet do
  Begin
    Ch:= MyForm.AddNewCheckBox(Area,'ch'+IntToStr(i),'Test'+IntToStr(i));
    Ch.align:= alTop;
  End;
  
  MyForm.Run;
End;