DBGrid - сохранение конфигурации

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, Db, DBTables, StdCtrls, IniFiles;
...

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;
  S : string;
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;