procedure TRxDBGrid.SetAutoSort(const AValue: boolean);
var
S: string;
Pos: integer;
begin
if FAutoSort = AValue then
exit;
FAutoSort := AValue;
if Assigned(DataSource) and Assigned(DataSource.DataSet) and
DataSource.DataSet.Active then
begin
S := DataSource.DataSet.ClassName;
if RxDBGridSortEngineList.Find(S, Pos) then
FSortEngine := RxDBGridSortEngineList.Objects[Pos] as TRxDBGridSortEngine
else
FSortEngine := nil;
FSortColumns.Clear;
end;
end;