Сохранить порядок колонок в DBGrid, после того как пользовать их перестроил

РЕКЛАМА!!!
Телефонный звонок в 2 часа ночи. Сонный мужик подходит к телефону:
- АЛЛО?!!!
Тишина. Кладет трубку. Ровно через 45 секунд опять звонок.
- АЛЛО?!!!!
Тишина. И так повторяентся 74 раза с регулярностью 45 секунд. Мужик:
- ПИИИИИИИи (длинный продолжительный писк, которым на телевидении заглушают матные слова) На другом конце провода довольный СисОп с лыбой во всю широту натуры, обнимающий небольшую коробочку. Голос за кадром:
- Делай всё, что тебе нравится вместе с модемом ZyXel!!!

procedure TMainForm.NewIni(const NomeIni: string);
var F: System.Text;
    i: Byte;
begin
  System.Assign(F, NomeIni);
  System.ReWrite(F);
  System.WriteLn(F, '[Campi_Ordine]');
  for i:=1 to Table1.FieldCount do
    System.WriteLn(F, 'Campo',i,'=',Table1.Fields[i-1].FieldName);
  System.WriteLn(F, '');
  System.WriteLn(F, '[Campi_Size]');
  for i:=1 to Table1.FieldCount do
    System.WriteLn(F, 'Campo',i,'=',Table1.Fields[i-1].DisplayWidth);
  System.Close(F);
end;

procedure TMainForm.SaveIni(const FN: String);
var Ini: TIniFile;
    i: Integer;
begin
  NewIni(FN);
  Ini := TIniFile.Create(FN);
  with Ini do
  begin
    for i:=1 to Table1.FieldCount do
    begin
      S:= Table1.Fields[i-1].FieldName;
      WriteString('Campi_Ordine', 'Campo'+IntToStr(i),
        Table1.Fields[i-1].FieldName);
      WriteInteger('Campi_Size', 'Campo'+IntToStr(i),
        Table1.Fields[i-1].DisplayWidth);
    end;
  end;
  Ini.Free;
end;

procedure TMainForm.LoadIni(const FN: String);
var Ini: TIniFile;
    i: Integer;
    j: Longint;
    S: String;

    function MyReadInteger(const Section, Ident: string): Longint;
    begin
      result := Ini.ReadInteger(Section, Ident, -1);
      if result=-1 then
        raise Exception.Create('Errore nel file di configurazione.');
    end;

    function MyReadString(const Section, Ident: string): String;
    begin
      result := Ini.ReadString(Section, Ident, '');
      if result='' then
        raise Exception.Create('Errore nel file di configurazione.');
    end;

begin
  Ini := TIniFile.Create(FN);
  try
    with Ini do
    begin
      for i:=1 to Table1.FieldCount do
      begin
        S:= MyReadString('Campi_Ordine', 'Campo'+IntToStr(i));
        j:= MyReadInteger('Campi_Size', 'Campo'+IntToStr(i));
        Table1.FieldByName(S).Index := i-1;
        Table1.FieldByName(S).DisplayWidth := j;
      end;
    end;
  finally
    Ini.Free;
  end;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 814 • TDictionary Custom Sort 5 921 • Fast Watermark Sources 5 724 • 3D Designer 8 504 • Sik Screen Capture 6 061 • Patch Maker 6 501 • Айболит (remote control) 6 491 • ListBox Drag & Drop 5 352 • Доска для игры Реверси 95 044 • Графические эффекты 6 694 • Рисование по маске 5 829 • Перетаскивание изображений 4 875 • Canvas Drawing 5 250 • Рисование Луны 4 974 • Поворот изображения 4 521 • Рисование стержней 3 201 • Paint on Shape 2 446 • Генератор кроссвордов 3 318 • Головоломка Paletto 2 630 • Теорема Монжа об окружностях 3 422 • Пазл Numbrix 2 258 • Заборы и коммивояжеры 2 917 • Игра HIP 1 885 • Игра Go (Го) 1 802 • Симулятор лифта 2 141 • Программа укладки плитки 1 867 • Генератор лабиринта 2 308 • Проверка числового ввода 1 993 • HEX View 2 305 • Физический маятник 1 964