ADO Database Delphi

{Mehmet TEPE
Çözüm Yazılım
EDU}
procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from tablo1 where adi=:adi');
adoquery1.Parameters.ParamByName('adi').Value:=edit1.Text;
adoquery1.Open;
end;