DBGrid sortering

Jeg sorterer efter nedenstående opskrift:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  OldSQLStreng, SQLStreng: String;
  SlutPos: Integer;
begin
  With ADOQuery1 do begin
    active:=False;
    OldSQLStreng:=SQL.Strings[0];
    SQL.Clear;
    //SQLStreng:='Select TInstitutionsnummer,TUvServerNavn,TSkolenavn,TSkoleAdresse,TSkolePostnrBy,TSkoleTelefon from TSkoler ORDER BY ';
    if Pos('ORDER',OldSQLStreng)>0 then
      SlutPos:=Pos('ORDER',OldSQLStreng)-1
    else
      SlutPos:=Length(OldSQLStreng);
    SQLStreng:=Copy(OldSQLStreng,1,Pos('ORDER',OldSQLStreng)-1);
    SQLStreng:=SQLStreng+' ORDER BY '+Column.FieldName;
    if OldSQLStreng=SQLStreng then SQLStreng:=SQLStreng+ ' DESC';
    SQL.Add(SQLStreng);
    Active:=True;
  end;
end;

Jeg har en DBGrid, hvis dataset er en ADOQuery.
Alt efter hvilken kolonne man klikker på, laver jeg SQL-sætningen i Query'en om, og når jeg enabler Query'en vil den sorterer efter den  nye streng.