void FillOrdersPnlV(FQry: TCLJSONQuery)

  var 

  I : Integer;

  TempProPnl : TclProPanel;

  TempProLbl, TempTableLbl, TempClockLbl, TempStateDisplayLbl : TclProLabel;

  {

    

  I = 0;

  try

  //TempProPnl = TCLProPanel(MainForm.clFindComponent(vScroll));

  with FQry do

  {

   if(Found){

    First;

    while (not EOF)  // Loop until the end of the dataset is reached

    {

  

    //TempTableLbl = TCLProLabel(MainForm.clFindComponent('TableLbl' + IntToStr(I)));

    //TempTableLbl.Text =  FieldByName('table_name').AsString; 

    clRTSetProperty('TableLbl' + IntToStr(I),'Text', FieldByName('table_name').AsString);

    

    //TempClockLbl = TCLProLabel(MainForm.clFindComponent('ClockLbl' + IntToStr(I)));

    //TempClockLbl.Text =  FieldByName('order_time').AsString;

    clRTSetProperty('ClockLbl' + IntToStr(I),'Text', FieldByName('order_time').AsString);

    

    

    //TempStateDisplayLbl = TCLProLabel(MainForm.clFindComponent('StateDisplayLbl' + IntToStr(I)));

    //TempClockLbl.Text =  IntToStr(I) + '.status' +' ' + FieldByName('status').AsString;

    clRTSetProperty('StateDisplayLbl' + IntToStr(I),'Text', FieldByName('status').AsString);

    Next;  // Move to the next record

    Inc(I);

    }

  }

  }

  except

    // If an error occurs, display the exception class and message

    ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);

  }

  

}

void FillOrdersPnlV(FQry: TCLJSONQuery)

var 

  I : Integer;

  TempTableLbl, TempClockLbl, TempStateDisplayLbl : TclProLabel;

  componentName: String;

{

  I = 0;

  

  Try

  

    with FQry do

    {

      if (Found)

      {

        First;

        

        while (not EOF)

        {

          Try

          

            TempTableLbl = MainForm.clFindComponent('TableLbl' + IntToStr(I)) as TclProLabel;

            if (TempTableLbl <> nil)

            {

              TempTableLbl.Text = FieldByName('table_name').AsString;

            }

            

            TempClockLbl = MainForm.clFindComponent('ClockLbl' + IntToStr(I)) as TclProLabel;

            if (TempClockLbl <> nil)

            {

              TempClockLbl.Text = FieldByName('order_time').AsString;

            }

            

            TempStateDisplayLbl = MainForm.clFindComponent('StateDisplayLbl' + IntToStr(I)) as TclProLabel;

            if (TempStateDisplayLbl <> nil)

            {

              TempStateDisplayLbl.Text = FieldByName('status').AsString;

            }

            

            Next;

            Inc(I);

          

          except

          

            ShowMessage('Index ' + IntToStr(I) + ' için hata: ' + LastExceptionMessage);

            Next;

            Inc(I);

          }

        }

      }

    }

    

    ShowMessage(' Veriler dolduruldu. Toplam: ' + IntToStr(I) + ' kayıt');

  

  except

  

    ShowMessage('FillOrdersPnlV hatası: ' + LastExceptionMessage);

  }

  }

clFindComponent ile bulup set etmeyi deneyelim