Порядок столбцов в DbGrid

[Aleksandr]

список отображаемых столбцов DbGrid отображается в ListBox. Как сделать, чтобы столбцы в DbGrid отображались в той же последовательности как и в ListBox. Вот мой код

for k := 0 to RzListBox2.Items.Count - 1 do

   MainForm.ADOTable1.FieldByName(RzListBox2.Items.Strings[k]).Visible:=true;
 MainForm.ADOTable1.FieldByName(RzListBox2.Items.Strings[k]).Index:=Inttostr(RzListBox2.ItemIndex+1);

[Gulik]

Вроде все правильно вот только нужно и для второй строки этот цикл, соответственно его нужно заключить в begin ... end

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

[Aleksandr]

спасибо что-то не досмотрел