Регулировка ширины колонок

[Dreanks]

В ini файл сохраняются порядок и ширина колонок TTable. При следующем запуске приложения пытаюсь восстановить порядок и ширину. Порядок восстанавливается, ширина нет

 ProdagaTable.DatabaseName:=getcurrentdir+'\Data\';
  ProdagaTable.TableName:='P.DB';
  ProdagaTable.Active:=true;
  ...
  LoadIni('P.ini');

процедура LoadIni:

procedure TProdagaForm.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('Ошибка файла конфигурации');
    end;

    function MyReadString(const Section, Ident: string): String;
    begin
      result := Ini.ReadString(Section, Ident, '');
      if result='' then
        raise Exception.Create('Ошибка файла конфигурации');
    end;

begin
  Ini := TIniFile.Create(FN);
  try
    with Ini do
    begin
      for i:=1 to ProdagaTable.FieldCount do
      begin
        S:= MyReadString('DB_Cols', 'Col'+IntToStr(i));
        j:= MyReadInteger('Col_Width', 'Width_Col'+IntToStr(i));
        ProdagaTable.FieldByName(S).Index := i-1;
        ProdagaTable.FieldByName(S).DisplayWidth := j;
      end;
    end;
  finally
    Ini.Free;
  end;
end;

Может кто подскажет в чем ошибка?

[Прик]

В справке сказано: если в редакторе свойства Columns TDBGrid колонки определены, то свойство DisplayWidth полей, связанных с колонками таблицы не имеет эффекта.
Т.е. DisplayWidth влияет на ширину колонок в DBGrid только тогда, когда список Columns пустой.

[М_Виктор]

Сообщение от Прик

В справке сказано: если в редакторе свойства Columns TDBGrid колонки определены, то свойство DisplayWidth полей, связанных с колонками таблицы не имеет эффекта.
Т.е. DisplayWidth влияет на ширину колонок в DBGrid только тогда, когда список Columns пустой.

Странно, я всегда управлял в DBGrid шириной колонок так, как мне заблагорассудится.

[Dreanks]

Сообщение от М_Виктор

Странно, я всегда управлял в DBGrid шириной колонок так, как мне заблагорассудится.

Вот и я о том же

procedure TProdagaForm.Button2Click(Sender: TObject);
begin
  ProdagaTable.Fieldbyname('Клиент').DisplayWidth:=5;
end;

замечательно работает