PENCARIAN DATA SECARA REALTIME DELPHI - DATABASE

procedure TForm1.Edit1Change(Sender: TObject);
begin
adoquery.close;
adoquery.sql.text:='select * from data where nama containing :nama';
adoquery.prepare;
adoquery.params[0].AsString:=Edit1.text;
adoquery.open;
end;