请问怎样在程序中动态创建一个查找字段？(20分)

delphi中怎样动态创建一个查找字段？
我是这样搞的:
var newfield :TstringField;
newfield:=TStringField.Create(Self);
With newfield do
begin
FieldKind:=fkLookUp;
FieldName :='aaa';
LookupDataSet:=tbgangwei;
KeyFields:='bbb';
LookupResultField :='ccc';
KeyFields :='ddd';
size:=40;
Lookup :=True;
end;
table1.fields.add(newfield);
运行时发生错误：
"lookup information for field 'aaa' is imcomplete"
好像意思是查询字段定义不完整。
清高手指点！

老弟你写错了，你怎么两个KeyFields啊，你的第二个应该是tbgangwei里的要查找的索引
字段，应该是 LookupKeyFields。改成LookupKeyFields:='ddd'就对了。

接受答案了.