Кто нибудь пробовал менять Tindexoptions в run-time со значения [ ixprimary ] на значение [ ixDescending ].
Такая штука не катит ( не отсортировывает значения в TClientDataSet по уменьшению )

procedure TForm1.Button2Click(Sender: TObject);
begin
if not FRange then
begin
with ClientDataSet1.IndexDefs do
begin
Update;
Clear;
with AddIndexDef do
begin
Fields := 'I';
Name := 'IntIndex';
Options := [ ixPrimary ];
end;
end;
FRange := True;
end
else begin
with ClientDataSet1.IndexDefs do
begin
Update;
Clear;
with AddIndexDef do
begin
Fields := 'I';
Name := 'IntIndex';
Options := [ ixDescending ];
end;
end;
FRange := False;
end;
ClientDataSet1.IndexName := IntIndex;
end;