بسم الله الرحمن الرحيم وصلى الله على سيدنا محمد وعلى آله وصحبه

بحث في الحقول المفهرسة فقط بطريقة مختلفة

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.EditKey;
  Table1.FieldByName('Numero').AsString := '2';
  Table1.GotoKey;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.SetKey;
  Table1.FieldByName('Numero').AsString := Edit1.text; // Edit1.text = 2
  Table1.GotoNearest;
end