adoqeury的lookup字段设置问题（在线等待）(30分)

在AdoQuery0控件的Fields Editor中加入所有的字段，然后选择要出现组合框的字段sort_id，设置它的LookUpDataSet为Adoquery1,LookUpKeyFields为sort_id,LookUpResultField为name,按收字段为adoqeury0的KeyFidlds为sort_id,还有FieldKind设为fkLookUp.
但是在DBGrid中无法显示组合框，而且连值都无法显示，请问这是怎么回事？是不是我哪里设置错了？还是哪里没有设置到？而且我查了一些资料，发现都是针对TstringField来设置，我的这个是TintergerField，是不是跟这个有关系？

procedure Tfrm_norm_info.FormCreate(Sender: TObject);
begin
with adoquery_griddo
begin
Close;
with FindField('sort_id')do
begin
FieldKind := fkLookup;
KeyFields:= 'sort_id';
LookupResultField :='sub_value';
LookupKeyFields:='sub_code';
LookupDataSet:=ADOQuery1;
LookupCache := True;
Lookup := True;
end;
Open;
end;
end;

上面的代码为何没有效果？没有出现下拉框