procedure TForm1.edkdbrgChange(Sender: TObject);
var
ada:boolean;
begin
  if length (edkdbrg.text)< 5 then exit;
  ada:= tbbarang.FindKey([edkdbrg.text]); // error disini klo pke ADO//
  if ada then
    begin
      beep;
      edkdbrg.focused;
      .....
      .. exit 
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ada:boolean;
begin
 if ada=Tbarang.Locate('Kdbarang',edit1.Text,[Lopartialkey])then
         if ada  then
         begin
           beep;
           edit1.Focused;
           exit;
   end;
end;

var
no1:string;
begin
no1:=(no.text);
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM qurban where no_id like '+QuotedStr('%'+no1+'%'));
Open;
if ADOQuery1.RecordCount=1 then
ShowMessage('Data udah ada');
no.text:='';