procedure TForm3.Edit1Change(Sender: TObject); begin table1.setkey; table1.fieldbyname('FIRMAADI').asstring:=edit1.text; table1.GotoNearest; end;