Сортировка по нажатию на поле в dbgrid

if ADOTable1.sort=' [Табельный номер] ASC' then
ADOTable1.sort:=' [Табельный номер] DESC'
else
ADOTable1.sort:=' [Табельный номер] ASC';

unit Unit33;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, DBClient, Provider, StdCtrls;
 
type
  TForm33 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    SortList: TStringList;
    SortOrder: String;
    procedure DoSomething(DataSet: TAdoQuery); virtual; abstract;
  public
    { Public declarations }
  end;
 
var
  Form33: TForm33;
 
implementation
 
{$R *.dfm}
 
procedure TForm33.DBGrid1TitleClick(Column: TColumn);
var i: Integer;
begin
 try
 if (Pos('[D]', Column.Title.Caption) = 0) and (Pos('[A]', Column.Title.Caption) = 0)
 then begin
      Column.Title.Caption := Column.Title.Caption + '[A]';
      SortList.Add(Column.FieldName + ' ASC');
      Exit;
      end;
 if Pos('[A]', Column.Title.Caption) > 0
 then begin
      Column.Title.Caption := StringReplace(Column.Title.Caption,'[A]','[D]', []);
      SortList.Delete(SortList.IndexOf(Column.FieldName + ' ASC'));
      SortList.Add(Column.FieldName + ' DESC');
      Exit;
      end;
 if Pos('[D]', Column.Title.Caption) > 0
 then begin
      Column.Title.Caption := StringReplace(Column.Title.Caption,'[D]','', []);
      SortList.Delete(SortList.IndexOf(Column.FieldName + ' DESC'));
      Exit;
      end
 finally
  SortOrder := '';
  for i := 0 to SortList.Count - 1
  do if i = 0
     then SortOrder := ' order by ' + SortList.Strings[i]
     else SortOrder := SortOrder + ',' + SortList.Strings[i];
  AdoQuery1.Close;
  AdoQuery1.SQL.Text := 'select F1.* from File1#csv as F1' + SortOrder;
  AdoQuery1.Open;
 end;
end;
 
procedure TForm33.FormCreate(Sender: TObject);
begin
 ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\Work\;Extended Properties="Tex;HDR=Yes";Jet OLEDB:Engine Type=96';
 ADOQuery1.SQL.Text := 'select F1.* from File1#csv as F1';
 ADOQuery1.Open;
 SortList := TStringList.Create;
end;
 
end.

unit Unit33;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, DBClient, Provider, StdCtrls;
 
type
  TForm33 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    SortList: TStringList;
    SortOrder: String;
  public
    { Public declarations }
  end;
 
var
  Form33: TForm33;
 
implementation
 
{$R *.dfm}
 
procedure TForm33.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var Index: Integer;
begin
 Index := SortList.IndexOfObject(Column);
 if Index = -1
 then Column.Title.Caption := Column.FieldName
 else if SortList.Strings[Index] = ' ASC'
      then Column.Title.Caption := Column.FieldName + '[A]'
      else Column.Title.Caption := Column.FieldName + '[D]';
end;
 
procedure TForm33.DBGrid1TitleClick(Column: TColumn);
var Index: Integer;
begin
 Index := SortList.IndexOfObject(Column);
 if Index = -1
 then Index := SortList.AddObject(' ASC', Column)
 else begin
      if SortList.Strings[Index] = ' ASC'
      then SortList.Strings[Index] := ' DESC'
      else SortList.Delete(Index);
      end;
 SortOrder := '';
 for Index := 0 to SortList.Count - 1
 do if Index = 0
    then SortOrder := ' order by ' + TColumn(SortList.Objects[Index]).FieldName + SortList.Strings[Index]
    else SortOrder := SortOrder + ',' + TColumn(SortList.Objects[Index]).FieldName + SortList.Strings[Index];
 Edit1.Text := SortOrder;
 AdoQuery1.DisableControls;
 AdoQuery1.Close;
 AdoQuery1.SQL.Text := 'select F1.* from File1#csv as F1' + SortOrder;
 AdoQuery1.Open;
 AdoQuery1.EnableControls;
end;
 
procedure TForm33.FormCreate(Sender: TObject);
begin
 ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\Work\;Extended Properties="Tex;HDR=Yes";Jet OLEDB:Engine Type=96';
 ADOQuery1.SQL.Text := 'select F1.* from File1#csv as F1';
 ADOQuery1.Open;
 SortList := TStringList.Create;
end;
 
end.

procedure TForm2.DBGrid1TitleClick(Column: TColumn);
var
  What: String;
begin
 
  if ADOQuery1.FieldByName(Column.FieldName).Tag = 0 then
   begin
    What := ' DESC';
    ADOQuery1.FieldByName(Column.FieldName).Tag:= 1;
   end
 
  else
   begin
    What := ' ASC';
    ADOQuery1.FieldByName(Column.FieldName).Tag:= 0;
   end;
 ADOQuery1.Sort:= Column.FieldName + What;
end;