Hola Ripoll1021. El código está en Delphi 2010. Sabes que tengo el mismo problema ahora y no puedo hacer que se ordene por los campos tipo lookup. Al principio me daba error y no entendía el motivo. Ahora solo ordena los otros campos menos los lookup.
Código Delphi
[-]
procedure TBasicExplorer.dbgBaseTitleClick(Column: TColumn);
begin
inherited;
if Column.Field.FieldKind = fkData then
TPSQLQuery(dsBase.DataSet).SortFieldNames := Column.FieldName;
end;
Te agradecería que me cuentes si descubriste otra manera de hacerlo.