Dinamik olarak VerticalScroll yerleştrime hatası

void OrdersPnlV(FCount: integer;FArr :TCLJSONArray; FJson : String)  // Scrolbar içinde oluşturduğumuz dinamik panaller ve öğeleri

  var

  I:integer;

  {

    Clomosy.setClipBoard(FJson);

  //Clomosy.setClipBoard(FJson);

  //ShowMessage('FCount: '+ IntToStr(FCount)+ ' table_name: '+ Clomosy.CLParseJSON(FJson, IntToStr(0) + '.table_name'))

  for (I = 0 to FCount - 1) { // HERE

  //ShowMessage('FCount: '+ IntToStr(FCount)+ ' table_name: '+ Clomosy.CLParseJSON(FJson, IntToStr(I) + '.table_name'))

  //ShowMessage('Array Item :'+FArr.GetItem(I).GetValueByPath('order_time').AsString +'FJson: '+Clomosy.CLParseJSON(FJson, IntToStr(I) + '.order_time'));

  OrdersPnl = MainForm.addnewpropanel(vScroll,'OrdersPnl'+IntToStr(I));

  OrdersPnl.Align = alMostTop;

  //OrdersPnl.Width = 50;

  OrdersPnl.Width =(MainForm.clWidth*0.127);

  //OrdersPnl.Height = 102;

  OrdersPnl.Height = (MainForm.clHeight*0.1216);

  SetObjectMargins(OrdersPnl,7);

  OrdersPnl.clProSettings.BorderWidth = 3;

  OrdersPnl.clProSettings.RoundHeight=5;

  OrdersPnl.clProSettings.RoundWidth=5;

  OrdersPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1e1e1e');

  OrdersPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#3a3a3a');

  OrdersPnl.SetclProSettings(OrdersPnl.clProSettings);

  TableLbl = MainForm.AddNewProLabel(OrdersPnl,'TableLbl'+ IntToStr(I),Clomosy.CLParseJSON(FJson, IntToStr(I) + '.table_name'));// HERE

  TableLbl.Align = alTop;

  TableLbl.Width = (MainForm.clWidth * 0.3817);  //150

  TableLbl.Height = (MainForm.clHeight * 0.0238); //20

  TableLbl.Margins.Left= (MainForm.clWidth*-68.70)/100; //-270

  TableLbl.Margins.Top= (MainForm.clHeight*0.834)/100;  //7

  TableLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

  TableLbl.clProSettings.FontSize = 20;

  TableLbl.clProSettings.FontVertAlign = palcenter;

  TableLbl.clProSettings.FontHorzAlign = palcenter;

  TableLbl.clProSettings.TextSettings.Font.Style = [fsBold];

  TableLbl.SetclProSettings(TableLbl.clProSettings);

  

  ClockPnl = MainForm.addnewpropanel(OrdersPnl,'ClockPnl'+IntToStr(I));

  ClockPnl.Align = alCenter;

  ClockPnl.Width = (MainForm.clWidth * 0.3817); //150

  ClockPnl.Height = (MainForm.clHeight * 0.0358); //30

  ClockPnl.Margins.Bottom = (MainForm.clHeight * 0.0417);

  ClockPnl.Margins.Left = (MainForm.clWidth * -0.4453); //-175

  ClockPnl.clProSettings.BorderWidth = 1;

  //ClockPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#3a3a3a');

  ClockPnl.SetclProSettings(ClockPnl.clProSettings);

  

  StatePnl = MainForm.addnewpropanel(OrdersPnl,'StatePnl'+IntToStr(I));

  StatePnl.Align = alCenter;

  StatePnl.Width = (MainForm.clWidth * 0.4707); //185

  StatePnl.Height = (MainForm.clHeight * 0.0358); //30

  StatePnl.Margins.Bottom = (MainForm.clHeight * 0.0179); //15

  StatePnl.Margins.Left = (MainForm.clWidth * -0.3511); //-138

  StatePnl.Margins.Top = (MainForm.clHeight * 0.0477);  //40

  StatePnl.clProSettings.BorderWidth = 1;

  //StatePnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#3a3a3a');

  StatePnl.SetclProSettings(StatePnl.clProSettings);

  

  ClockDisplayLbl = MainForm.AddNewProLabel(ClockPnl,'ClockDisplayLbl'+IntToStr(I),'SAAT:');

  ClockDisplayLbl.Align = alLeft;

  ClockDisplayLbl.Width = (MainForm.clWidth * 0.1272); //50

  ClockDisplayLbl.Height = (MainForm.clHeight * 0.0238); //20

  ClockDisplayLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

  ClockDisplayLbl.clProSettings.FontSize = 14;

  ClockDisplayLbl.clProSettings.FontVertAlign = palcenter;

  ClockDisplayLbl.clProSettings.FontHorzAlign = palcenter;

  ClockDisplayLbl.clProSettings.TextSettings.Font.Style = [fsBold];

  ClockDisplayLbl.SetclProSettings(ClockDisplayLbl.clProSettings);

  

  ClockLbl = MainForm.AddNewProLabel(ClockPnl,'ClockLbl'+IntToStr(I), Clomosy.CLParseJSON(FJson, IntToStr(I) + '.order_time'));// HERE

  ClockLbl.Align = alLeft;

  ClockLbl.Width = (MainForm.clWidth * 0.1272); //50

  ClockLbl.Height = (MainForm.clHeight * 0.0358); //30

  ClockLbl.Margins.Left = (MainForm.clWidth * -0.0051);  //-2

  ClockLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

  ClockLbl.clProSettings.FontSize = 14;

  ClockLbl.clProSettings.FontVertAlign = palcenter;

  ClockLbl.clProSettings.FontHorzAlign = palcenter;

  ClockLbl.clProSettings.TextSettings.Font.Style = [fsBold];

  ClockLbl.SetclProSettings(ClockLbl.clProSettings);

  

  StateLbl = MainForm.AddNewProLabel(StatePnl,'StateLbl'+IntToStr(I),'Durum:');

  StateLbl.Align = alLeft;

  StateLbl.Width = (MainForm.clWidth * 0.1145); //45

  StateLbl.Height = (MainForm.clHeight * 0.0238); //20

  StateLbl.Margins.Left = (MainForm.clWidth * 0.0127); //5

  StateLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

  StateLbl.clProSettings.FontSize = 14;

  StateLbl.clProSettings.FontVertAlign = palcenter;

  StateLbl.clProSettings.FontHorzAlign = palcenter;

  StateLbl.clProSettings.TextSettings.Font.Style = [fsBold];

  StateLbl.SetclProSettings(StateLbl.clProSettings);

  

  StateDisplayLbl = MainForm.AddNewProLabel(StatePnl,'StateDisplayLbl'+IntToStr(I), Clomosy.CLParseJSON(FJson, IntToStr(I) + '.status'));

  StateDisplayLbl.Align = alLeft;

  StateDisplayLbl.Width = (MainForm.clWidth * 0.3308); //130

  StateDisplayLbl.Height = (MainForm.clHeight * 0.0238); //20

  StateDisplayLbl.Margins.Left = (MainForm.clWidth * -0.0254); //-10

  StateDisplayLbl.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

  StateDisplayLbl.clProSettings.FontSize = 14;

  StateDisplayLbl.clProSettings.FontVertAlign = palcenter;

  StateDisplayLbl.clProSettings.FontHorzAlign = palcenter;

  StateDisplayLbl.clProSettings.TextSettings.Font.Style = [fsBold];

  StateDisplayLbl.SetclProSettings(StateDisplayLbl.clProSettings);

  

  DetailsBtn= MainForm.AddNewProButton(OrdersPnl, 'DetailsBtn'+IntToStr(I), 'DETAYLAR');

  DetailsBtn.clTagStr = 'DetailsBtn_'+IntToStr(I);

  DetailsBtn.Align = alCenter;

  DetailsBtn.Width = (MainForm.clWidth*0.3817); //150

  DetailsBtn.Height = (MainForm.clHeight*0.1144); //96

  DetailsBtn.Margins.Bottom= (MainForm.clHeight*0.03442); //27.2

  DetailsBtn.Margins.Left=(MainForm.clWidth*51.65)/100; //203

  DetailsBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

  DetailsBtn.clProSettings.FontSize = 16;

  DetailsBtn.clProSettings.FontVertAlign = palcenter;

  DetailsBtn.clProSettings.FontHorzAlign = palcenter;

  DetailsBtn.clProSettings.TextSettings.Font.Style = [fsBold];

  DetailsBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4caf50');

  DetailsBtn.clProSettings.RoundWidth = 5;

  DetailsBtn.clProSettings.RoundHeight = 5;

  MainForm.AddNewEvent(DetailsBtn,tbeOnClick,'gotodetails');

  DetailsBtn.SetclProSettings(DetailsBtn.clProSettings);

  

  }

}

Örnek Json kodum

[{"order_id":21,"table_name":"K1","status":"paid","order_time":"12:50"},{"order_id":19,"table_name":"K1","status":"paid","order_time":"12:45"},{"order_id":16,"table_name":"K1","status":"paid","order_time":"12:40"},{"order_id":15,"table_name":"K1","status":"paid","order_time":"12:40"},{"order_id":14,"table_name":"K10","status":"paid","order_time":"18:48"},{"order_id":13,"table_name":"K10","status":"paid","order_time":"18:48"},{"order_id":12,"table_name":"K10","status":"pending","order_time":"18:46"},{"order_id":11,"table_name":"K10","status":"pending","order_time":"17:40"},{"order_id":10,"table_name":"K1","status":"pending","order_time":"17:40"},{"order_id":9,"table_name":"K1","status":"pending","order_time":"17:24"},{"order_id":8,"table_name":"K1","status":"pending","order_time":"17:23"},{"order_id":7,"table_name":"K1","status":"pending","order_time":"16:42"},{"order_id":6,"table_name":"K1","status":"paid","order_time":"16:35"},{"order_id":5,"table_name":"K1","status":"paid","order_time":"16:29"},{"order_id":4,"table_name":"K1","status":"pending","order_time":"16:26"},{"order_id":3,"table_name":"K1","status":"pending","order_time":"20:38"},{"order_id":2,"table_name":"K1","status":"paid","order_time":"20:37"},{"order_id":1,"table_name":"K1","status":"paid","order_time":"20:37"}]

void ClearScrollBoxChildrenClomosy(scrollBox: TCLVertScrollBox; pattern: String; maxCount: Integer)

var

  i: Integer;

  comp: TCLComponent;

  compName: String;

{

  Try

    if (scrollBox == nil)

    {

      Exit;

    }

    

    for (i = 0 to (maxCount - 1))

    {

      Try

        compName = pattern + IntToStr(i);

        comp = scrollBox.clFindComponent(compName);

        

        if (comp <> nil)

        {

          comp.Free;

          comp = nil;

        }

      }

      except

      }

    }

  except

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

  }

} 
bu şekil de kaldırmayı deneyelim 
sonra tekrar oluşturalım