busqueda de aproximacion en dbgrid

[FRANKER]

Hola:

Para Asignar un índice a una tabla tienes que modificar su propieda indexname:

 Table1.indexname := 'nombreIndice';

si tienes todos los indices en un comboBox se quedaría mas o menos asi :

 Table1.indexname := ComboBox.Text;

Para posicionarte en el registro que más se parece a una condición puedes usar el método FindNearest del TTable.
Aqui te dejo un trozo de texto extraído de la ayuda de Delphi 5:

The following example performs an incremental search on a table. The form contains a db grid, an edit box, a data source, and a table. As the user types in the edit box, the cursor of the grid moves to the nearest match in the table.

procedure TForm1.FormActivate(Sender: TObject);

begin
  Table1.DatabaseName := 'DBDemos';
  Table1.TableName := 'Customer.db';
  Table1.Active := True;
  Table1.IndexName := 'ByCompany';
end;

procedure TForm1.Edit1Change(Sender: TObject);

begin
    Table1.FindNearest([Edit1.Text]);
end;

Saludos y Suerte!!.