var 
jsonObject:TClJsonQuery;
clRest:TclRest;
mainform: TclForm;
progrid: TclProGrid;
mainvertScrollBox: TCLVertScrollBox;
idstr:String;
firstName:String;
FSenderId:TCLProGrid;
FRowId, FColId : Integer;
mainform2:TclForm;
mainvertScrollBox2:TCLVertScrollBox;
jsonObject2:TClJsonQuery;
progrid2:TCLProGrid;
Position: Integer;
a: string;
void idgridac;
{

  FSenderId = TCLProGrid(mainform.ClSender);
  FRowId = mainform.ClSenderRow; // 1 den başlıyor satırlar
  FColId = mainform.ClSenderCol; //0 dan başlıyor sütunlar
  ShowMessage('['+IntToStr(FRowId)+','+IntToStr(FColId)+'] '+'Hücresinde Bulunan Veri: '+FSenderId.Cells[FColId,FRowId]);
  mainform2 = TclForm.Create(self);
  ClRTSetProperty(mainform2,'ClientWidth',900);
  ClRTSetProperty(mainform2,'ClientHeight',750);
  
  mainvertScrollBox2 = mainform2.AddNewVertScrollBox(mainform2,'mainvertScrollBox2');
  mainvertScrollBox2.align=alClient;
  try
    jsonObject2 = Clomosy.ClDataSetFromJSON(FSenderId.Cells[FColId,FRowId]); 
    jsonObject2.openorexecute;
    a = FSenderId.Cells[FColId,FRowId];
    ShowMessage(a);
    Position = Pos('{', FSenderId.Cells[FColId,FRowId]);
    ShowMessage(Position)
    if (Position > 1)
    { 
      ShowMessage('Substring not found.');
    }  
    else
    {
      ShowMessage('Substring found. Position: ' + IntToStr(Position));
      progrid2 = mainform2.addnewprogrid(mainvertScrollBox2, 'progrid2');
      progrid2.AutoSizeColumns(True,300);
      ProGrid2.ConnectDataSet(jsonObject2);
      with progrid2 do
      {
        align= alClient;
        margins.right= 30;
        margins.left= 30;
        margins.bottom= 30;
        // width=(mainform.clwidth*90)/100;
        //height=(mainform.clheight*75)/100;
        FixedLayoutFillColor = clalphacolor.clhextocolor('#3fc660');
      }
      //mainform2.AddNewEvent(progrid2, tbeOnProGridCellClick,'idgridac2');
    }
  except
    ShowMessage('Exception Class2: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
  }
  mainform2.run;
}
 void usersgrid;
 {

  clRest         = TclRest.Create;
  jsonObject     = TClJsonQuery.Create(nil);
  clRest.BaseURl = 'https://dummyjson.com/users/1';
  clRest.Accept  = 'application/json';
  clRest.Method  = rmGet;
  clRest.Execute;
 
   ShowMessage(clRest.Response);

   try

    jsonObject = Clomosy.ClDataSetFromJSON(clRest.Response); 
    jsonObject.openorexecute;

    with jsonObject do
    {
    
      
      if (Found) 
      {
        First; 
        while (not EOF)  
        {
               progrid = mainform.addnewprogrid(mainvertScrollBox, 'progrid');
               progrid.AutoSizeColumns(True,300);
               ProGrid.ConnectDataSet(jsonObject);
                 with progrid do
                  {
                    align= alClient;
                    margins.right= 30;
                    margins.left= 30;
                    margins.bottom= 30;
                    // width=(mainform.clwidth*90)/100;
                    //height=(mainform.clheight*75)/100;
                    FixedLayoutFillColor = clalphacolor.clhextocolor('#3fc660');
                  }
            ShowMessage(FieldByName('id').AsString);    
            mainform.AddNewEvent(progrid, tbeOnProGridCellClick,'idgridac');
          Next; 
        }
        
      }
      }
       except
 ShowMessage('Exception Class1: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
    }

}
{
  mainform = TclForm.Create(self);
  ClRTSetProperty(mainform,'ClientWidth',900);
  ClRTSetProperty(mainform,'ClientHeight',750);
  
  mainvertScrollBox = mainform.AddNewVertScrollBox(mainform,'mainvertScrollBox');
  mainvertScrollBox.align=alClient;
  

  usersgrid;  
  
  mainform.Run;
  
  
}