Lookup value when user typing it

This example displays value into NAME field at COUNTRY.DB database which have DBDEMOS alias.

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text='' then Table1.First
  else Table1.Locate('NAME',Edit1.Text,[loPartialKey]);
end;