butonda liste döndürme


   KOD1-var  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