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"}');
 dizi := TCLArrayString.Create;
  for x := 0 to 121 do 
begin
  //dizi.Add('C:/Clomosy/Resimler/part_'+IntToStr(x)+'.jpg');
 
 end; 
  for i:= 0 to 10 do begin 
    satirLyt:=MyForm.AddNewLayout(p1,'satirLyt'+IntToStr(i));
    satirLyt.Align:=alMostTop;
    satirLyt.Height:=87;
    satirLyt.Width:=170;
    for j:=0 to 10 do begin
      sutunLyt:=MyForm.AddNewLayout(satirLyt,'sutunLyt'+IntToStr(i)+IntToStr(j));
      sutunLyt.Align:=alMostleft;
      sutunLyt.Width:=170;
      sutunLyt.Height:=100;
      
      resim := MyForm.AddNewProImage(sutunLyt,'resim'+IntToStr(i)+IntToStr(j));
      clComponent.SetupComponent(resim,'{"Align" : "client","Width" :170, "Height":100}');
      a:=dizi.Add('C:/Clomosy/Resimler/part_'+IntToStr(x)+'.jpg');
       MyForm.SetImage(resim,a);
       resim.Text := IntToStr(I)+' - '+IntToStr(j);
       a := ' ';
       Myform.AddNewEvent(resim,tbeOnClick,'alanBtnOnClick');
       x := x+1;
    end;
  end;
 MyForm.Run;
end;