Doing incremental search in a Table

To do incremental search on a table, using a TEdit, you must put this code in the TEdit's OnChange Event:

procedure TForm1.Edit1Change(Sender: TObject);

begin

  With Edit1 do

    if Text <> '' then

      Table1.FindNearest([Text]);

end;