procedure TForm1.edSearchChange(Sender: TObject); begin with Table1 do begin SetKey; FieldByName('Company').AsString:=edSearch.text; GotoNearest; end; end;