MyForm:TclForm;

  satirLyt,sutunLyt:TClLayout;

  arkaPnl,p1:TCLPanel;

  alanBtn: TCLButton;

  i,j:Integer;

  procedure alanBtnOnClick;

  begin

    ShowMessage(TCLButton(MyForm.ClSender).Text);

  end;

begin

  MyForm := TclForm.Create(Self);

  

  arkaPnl:=MyForm.AddNewProPanel(MyForm,'arkaPnl');

  clComponent.SetupComponent(arkaPnl,'{"Align" : "Client","BackgroundColor":"#EEE8AA"}');

  

  p1:=MyForm.AddNewProPanel(arkaPnl,'p1');

  clComponent.SetupComponent(p1,'{"Align" : "Client","BackgroundColor":"#EEE8AA"}');

  

  for i:= 0 to 4 do begin 

    satirLyt:=MyForm.AddNewLayout(p1,'satirLyt'+IntToStr(i));

    satirLyt.Align:=alMostTop;

  

      sutunLyt:=MyForm.AddNewLayout(satirLyt,'sutunLyt'+IntToStr(i)+IntToStr(j));

      sutunLyt.Align:=alMostleft;

      sutunLyt.Width:=30;

      sutunLyt.Height:=30;

      alanBtn:=MyForm.AddNewProButton(sutunLyt,'alanBtn'+IntToStr(i)+IntToStr(j),IntToStr(I)+' - '+IntToStr(j));

      clComponent.SetupComponent(alanBtn,'{"Align" : "client","Width" :50, "Height":50, "BorderColor":"#000000","BorderWidth":1, "BackgroundColor":"#ffffff"}');

      MyForm.AddNewEvent(alanBtn,tbeOnClick,'alanBtnOnClick');

 

  end;

  

 MyForm.Run;

end;

KOD2- var

  MyList: TclStringList;

  ItemCount: Integer;

begin

  MyList := Clomosy.StringListNew;

  MyList.Add('Kule Site');

  MyList.Add('Real');

  MyList.Add('Kent');

  MyList.Add('Bosna');

  MyList.Add('Meram');

  ItemCount := MyList.Count;

  

  ShowMessage('There are ' + IntToStr(ItemCount) + ' items in the list.');

  

  MyList.Free;

end;

KOD1 ve KOD2 yi birleştirerek KOD1 butonlarında KOD2 deki listeyi döndürmek istiyorum nasıl bağlayabilirim

Benim ikinci birimim Unit2, bu yüzden böyle yazdım. Siz ikinci biriminizin ismini bu şekilde yazın.