[@Rafa3L]

Код:

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