procedure TForm1.Button1Click(Sender: TObject); begin if Edit1.Text <> '' then Table1.Locate('name', Edit1.Text, [loPartialKey]); end;