ADO Database Delphi

Title: Sort columns in DBGrid
Use the FieldName property of the DBGrid to set an index with the same name as the FieldName.
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
(Column.Field.DataSet as TTable).IndexFieldNames:=Column.FieldName;
end;