[Burka]

Меня эта проблема вообще в тупик загнала, вот в чем ее суть:
программно создаю lookup поля в AdoTable
вот процедура создания полей:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

procedure CreateLookups;    //Процедура создания LookUp поля    procedure createit(KeyF,               //Имя поля которое нужно заменить                       LUpKeyF,                       LUpRes :string;                       T1, T2 :TADOTable);    begin      with TStringField.Create(DataModule1.T) do        begin         FieldName  := 'lookup' + KeyF;         FieldKind  := fkLookup;         DataSet    := T1;         Name       := 'My' + FieldName;         KeyFields  := KeyF;         LookUpDataSet := T2;         LookUpKeyFields := LUpKeyF;         LookUpResultField:= LUpRes;         DataModule1.T.FieldDefs.Add(Name, ftString, 100, false);        end;       DataModule1.T.FieldByName(KeyF).Visible:=false;       DataModule1.T.FieldByName(KeyF).Index:=T1.Fields.Count-1;       DataModule1.T.FieldByName('lookup' + KeyF).Index:=StrToInt(KeyF)-1;       DataModule1.T.FieldByName('lookup' + KeyF).DisplayLabel:=KeyF;    end; begin   DataModule1.T.Active:=false;   createit('2','id','value', DataModule1.T, DataModule1.T2);   createit('4','id','value', DataModule1.T, DataModule1.T4);   createit('76','id','value', DataModule1.T, DataModule1.T76);   DataModule1.T.Active:=true; end;

Но при просмотре таблицы получается, что отображается только первые 20 символов во всех 3х полях(пример в файле). Проверял с разными таблицами, везде ошибка повторяется, значит ошибка в датасете. Создовал в ручную лукап поле, вроде, отображается нормально, но меня интересует именно программное создание полей.
Подскажите как можно исправить ошибку?