Keresési módszerek adattáblákban

Table1.FindNearest([sorsz, 'kulcs']);

procedure TForm1.Button2Click(Sender: TObject);
begin
  with Table1 do begin
    EditKey;
    FieldByName('Name').AsString:=Edit2.Text;
    if not GotoKey then ShowMessage('Nem található a feltételnek megfelelő rekord!');
  end;
end;

var
  MyField: TField;
…
  MyField := Tabel1.FindField('Nev');
  if Assigned(MyField) then begin
…
  end;