محو العناصر من categorypanelgroup واعادة انشائها

[jeanjamil]

السلام عليكم
هذا الكود يظهر خطا ْ
 (List index out of bounds(4
 for del := 1 to CategoryPanelGroup1.Panels.Count do
  begin
([CategoryPanelGroup1.RemoveControl(CategoryPanelGroup1.Panels[del
 ; end

if not opendialog1.execute then
 ; halt
(ClientDataSet1.LoadFromFile(OpenDialog1.filename
for I := 0 to ClientDataSet1.RecordCount-1 do
 begin
  (newPanel := CategoryPanelGroup1.CreatePanel(self
   ;as tcategorypanel
ما المشكل وما الحل   , وهذا حين بحتوي الجدول على 4 سجلات