Sortierung DBGrid mit Datasource ClientDataSet

[toyoman]

Hallo Leute

Folgende Prozedur hab ich jeweils verwendet um eine DBGRid zu sortieren welche jedoch mit den ADO Komponenten zur DB verbunden war. Nun hab ich aber den Fall, dass ich TClientDataSet verwenden mit angehängter TSQLQuery.
Diese Prozedur funktioniert so leider nicht mehr weil die Funktion SORT nicht erkannt wird von TCLientDataSet. Gibts eine Alternative? Oder wie könnte ich eine Sortierung lösen?

Delphi-Quellcode:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
{$J+}
 const PreviousColumnIndex : integer = -0;
{$J-}
begin
  if DBGrid1.DataSource.DataSet is TCustomADODataSet then
  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
  begin
    try
      DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=
      DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];
    except
    end;

    Column.title.Font.Style := 
    Column.title.Font.Style + [fsBold];
    PreviousColumnIndex := Column.Index;

    if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort)= 0) then
      Sort := Column.Field.FieldName + ' DESC'
    else
      Sort := Column.Field.FieldName + ' ASC';
  end;
end;

[hyype]

genau das versuch ich auch grad
ich connecte mich zur db, hole mir daten und hau sie in ein cds
danach beende ich die connection zur db, so dass mir die daten nur noch im cds und im dbgrid vorliegen
d.h. ich muss entweder das eine oder das andere sortieren