This procedure is called when the sorting will begin or has finisehd its work.
TOnSort = procedure (sender: TObject; sortStage: TSortStage) of object;
Jam.Shell.Controls.BaseShellListView