جواب:

کافی است در رويداد TitleClick مربوط به شی DBGrid کد زیر را بنويسيد :

procedure TForm1.DBGrid1TitleClick(Column: TColumn);

begin

   ADOTable1.Sort:=Column.FieldName;

end;

موفق وسربلند باشید .  

*********************************************************************