[PowerSoft]

SQL:='Select DRKODU,TC,AD,SOYAD,TEL1,TEL2 From DRTABLE Where DRKODU like '+chr(39)+'%'+UpperCase(Trim(ADRES.Edit1.Text))+ch r(39);

ADRES.AdsQuery1.Close;
ADRES.AdsQuery1.SQL.Clear;
ADRES.ADSQuery1.Sql.Add(SQL);
ADRES.AdsQuery1.Open;