ADO Database Delphi

// Formunuza bir adet Edit Adı edtListele olacak bir Query Adı qryCustomer ,bir Datasource ,dbGridnesnesi yerlestirin editin onchange olayı aşagıdaki gibi olacak Datasourceun Dataset ine Queryi atayın Query nin Databasei DBDemos olsun Şimdi
Editin içerisine yazılan bilgiye benzer olan kayıtlar listelenecek Tabi Company fieldına göre
procedure Tform1.edtListeleChange(Sender: TObject);
begin
with qryCustomer do
begin
Sql.Clear;
Sql.Add('Select * from customer');
Sql.Add('Where upper(Company) Like'+#39+edtListele.Text+'%'+#39);
Open;
end;
end;