lookup ile yapılan Sql sorgusunda hata

[cevizsandigi]

adoquery e fields editor de lookup kullanarak new field ekledim.
daha sonra bu query de bir sorgu yapmak istediğimde ise "Lookup information for field'firmaAdi' is incomlate " yazan bir hata verdi.

firma tablosundan lookup metodu ile eklediğim alanlar
firmaAdi , FirmaTel

asıl tablom olan rehberdende adi, soyadi, evtel alanları

yapmak istediğimde net olarak şöyle :
lookup ile eklediğim alanların şartıma uygun olarak listelenmesini istiyorum. bunu yapmak için nasıl bir yol izlemeliyim. şimdiden yardımlarınız için teşekkürler

 
 
ad:=trim(Edit1.Text);
TumListe.Active:=false;
TumListe.SQL.Clear;
TumListe.SQL.Add('select * from rehber where Adi like ' + QuotedStr('%'+Ad+'%'));
TumListe.Active:=true;
TumListe.ExecSQL;

[hasanramazan]

bir sorgulama yaparken lokupta örnek diyelim servis adlı bir veri tabanı dosyasında
bim magazasina gidile firmanin ismini tarihini masrafını siralamak istedğimizde
('Select * From SERVIS Where MAGAZAADI=:MAG'); komutu ile sıralayabiliriz.
örnek bir kod dersen

var

deger:AnsiString;
begin
deger:=DBLookupListBox1.SelectedItem;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From SERVIS Where MAGAZAADI=:MAG');
Query1.Params[0].AsString:=deger;
Query1.Open;
 

listboxa magazaların ismini atacaktır bim,şok vs mouse ile secili olan

magaza(örnek bim) dbgridde bim e ait tüm kayıtları listelicektir.

sizin yaptığınız örnekte rehber kismina firmaadını kullanmalısınız
bu örnek size bir aciklama getirmiştir umarim.

[hasanramazan]

size oluşumu direk kopyalayim en azından mantığını çözersiniz.

procedure TForm4.FormCreate(Sender: TObject);
begin
Query1.Open;
Query2.DatabaseName:='hasanramazan';
Query2.SQL.Add('Select MAGAZAADI from MAGAZA');
Query2.Open;
DataSource2.DataSet:=Query2;
DBLookupListBox1.ListSource:=DataSource2;
DBLookupListBox1.KeyField:='MAGAZAADI';
end;
procedure TForm4.DBLookupListBox1DblClick(Sender: TObject);
var
deger:AnsiString;
begin
deger:=DBLookupListBox1.SelectedItem;
Query1.SQL.Clear;
Query1.SQL.Add('Select * From SERVIS Where MAGAZAADI=:MAG');
Query1.Params[0].AsString:=deger;
Query1.Open;
end;