[Dux]

Реализовать это можно следующим способом, в обработчике событий DBGrid1 - OnTitleClick прописываем:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
ADOTable1.IndexFieldNames:=Column.FieldName;
end;