Работа с колонками DBGrid

[Aleksandr]

При считывании списка колонок с RzListBox2 колонки отображаются в обратной последовательности. И не считываются размеры колонок. Почему? Вот мой код.

var
 index,i,j,k,l,m:Integer;
   F: TIniFile;
     begin
  F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
 //Считывание списка колонок для отображения
 for i := 0 to EditForm.RzListBox2.Items.Count - 1 do
    F.WriteString('List1', 'Displayed' + IntToStr(i+1), EditForm.RzListBox2.Items.Strings[i]);

//Считывание списка колонок которые не отображаются
  for j := 0 to EditForm.RzListBox1.Items.Count - 1 do
    F.WriteString('List', 'Available' + IntToStr(i+1), EditForm.RzListBox1.Items.Strings[i]);
     
//Считывание ширины столбца
 for m:=0 to DBGrid2.Columns.Count-1 do
   DBGrid2.Columns[m].width:=F.ReadInteger(' options ', 'width'+ IntToStr(m+1),60 );
//F.ReadInteger(' options ', 'width'+ IntToStr(m+1),DBGrid2.Columns[m].width );

            F.Free;

  for k := 0 to EditForm.RzListBox2.Items.Count - 1 do begin
MainForm.ADOTable1.FieldByName(EditForm.RzListBox2.Items.Strings[k]).Visible:=true;
MainForm.ADOTable1.FieldByName(EditForm.RzListBox2.Items.Strings[k]).Index:=EditForm.RzListBox2.ItemIndex;
end ;

   for l := 0 to EditForm.RzListBox1.Items.Count - 1 do
    MainForm.ADOTable1.FieldByName(EditForm.RzListBox1.Items.Strings[l]).Visible:=false;