Hi,
possible solution depends on way of sorting used in your case.
If you are using some type of TrDBGridSorter then you have to create own version of the sorter and override SetSort_CreateIndex and add any additional field as another sorted field:
{ virtual procedure called to set sorting properties in dataset, MUST be override to provide sorting }
function SetSort_CreateIndex(DataSet: TDataSet; const SortString: string; const SortFields: string; const DescendingFields: string): boolean; virtual;
You can also remove sorter and use directly OnChangeSortEx event for rDBGrid and again set also any additional field as another sorted field for your custom code for dataset sorting.
I hope it helps
Tomas