VirtualStringTree 4.8.6 HeaderClick liefert Column falsch

[niko022]

Ich habe jetzt das Ereignis auf das folgende abgeändert und die Column-Auswahl funktioniert jetzt

Delphi-Quellcode:

procedure TTS_Maschinen.VST_MaschinenHeaderClick(Sender: TVTHeader; HitInfo: TVTHeaderHitInfo);
begin
  with Sender do
  begin
    if (SortColumn = HitInfo.Column) and (SortDirection = sdAscending) then
      SortDirection := sdDescending
    else
      SortDirection := sdAscending;
      SortColumn    := HitInfo.Column;
  end;
end;

Leider springt er jetzt aber nicht in das CompareNodes Ereignis und sortiert mir dann die Spalte wirklich.
Was könnte dafür die Ursache sein?

Vielen Dank.