Создание Lookup полей программно

← →
DS (2001-12-19 17:35) [0]

Здрасте !
Пожалуйста помогите! Не получается создать Lookup поле программно
хотя все свойства вроде бы определяю. Написал такой код :
MyFil : TStringField;

tABLE1.Close;
tABLE1.Fields.Add(MyFil);
MyFil:=TStringField.Create(MyFil);
MyFil.FieldName:="Table1MyFil";
MyFil.Name:="MyFil";
MyFil.Size:=10;
MyFil.Index:=tABLE1.Fields.Count;
MyFil.FieldKind:=fkLookup;
MyFil.LookupCache:=false;
MyFil.LookupDataSet:=Table2;
MyFil.LookupKeyFields:="Kod";
MyFil.KeyFields:="KodRazm";
MyFil.LookupResultField:="Razmer";
MyFil.Lookup:=true;
MyFil.DisplayWidth:=10;
MyFil.Transliterate:=true;
MyFil.FixedChar:=false;
MyFil.Visible:=true;
MyFil.ReadOnly:=false;
MyFil.Required:=false;
MyFil.AutoGenerateValue:=arNone;
MyFil.Alignment:=taLeftJustify;
tABLE1.Open;

Пишет Access violation. Пожалуйста помогите, срочно надо!

Заранее благодарю.

Создание Lookup полей программно Найти похожие ветки