ساخت lookup در runtime

[zman123456]

با سلام
من يه فرم گزارش دارم كه در آن با فيلترهاي متعدد ميشه گزارش گرفت.
و براي هر گزارش در گريد يكسري فيلدهاي بخصوص قرار مي گيرد.پس نياز دارم كه در runtime فيلدهاي lookup در query‌ايجاد كنم.تا يك حدودي رفتم جلو ولي جواب نداد.اين كدي كه مي زارم رو خيلي دستكاري كردم و خرابتر شده.اولش بهتر بود.:اشتباه:


FieldsCaption[0]:='ßÏ Èíãå';
FieldsCaption[1]:='ßÏÓÑíÇá';
FieldsCaption[2]:='ÊÚÏÇÏ ãÕÑÝí';
FieldsCaption[3]:='ãÕÑÝ';
FieldsCaption[4]:='ÏæÑå ÏÑãÇä';
FieldsCaption[5]:='';
FieldsCaption[6]:='';
FieldsCaption[7]:='';
FieldsCaption[8]:='';
FieldsCaption[9]:='';
FieldsCaption[10]:='';
FieldsCaption[11]:='';
//********************************************
Q_Search.Fields.Create(Q_Search);
Q_Search.Fields.Fields[Q_Search.Fields.Count+1].Name:='DDarman';
//Q_Search.Fields.Fields[Q_Search.Fields.Count+1].DataType:=string;
//Q_Search.Fields.Fields[Q_Search.Fields.Count+1].DataSize:=10;
//Q_Search.Fields.Fields[Q_Search.Fields.Count+1].DataSet:=DS_DDarman;
Q_Search.Fields.Fields[Q_Search.Fields.Count+1].Lookup:=true;
Q_Search.Fields.Fields[Q_Search.Fields.Count+1].LookupKeyFields:=Q_Search.Fields.Fields[4].FieldName;
Q_Search.Fields.Fields[Q_Search.Fields.Count+1].LookupResultField:=Q_DDarmanDescr.FieldName;
//Q_Search.Fields.Fields[Q_Search.Fields.Count+1].LookupList:=;
Q_Search.Fields.Fields[Q_Search.Fields.Count+1].LookupDataSet:=Q_Search;
//********************************************
for count := 0 to Q_Search.FieldCount - 2 do
begin
DBGrid1.Columns.Items[count].Field.Create(self);
DBGrid1.Columns.Items[count].FieldName:=Q_Search.Fields.Fields[count].FieldName;
DBGrid1.Columns.Items[count].Title.Caption:=FieldsCaption[Count];
end;

كلا يه راهنمايي براي ساخت فيلد و مخصوصا از نوع lookup مي خواهم.
با تشكر

[zman123456]

در بین این همه استاد کسی نیست به من کمکی بکنه؟