VirtualStringTree-HeaderClick Ereignis Problem

[Die Muhkuh]

Wäre es sorum nicht logischer?

Delphi-Quellcode:

//Sortieren
procedure TForm1.VSTHeaderClick(Sender: TVTHeader; Column: TColumnIndex;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (sender.SortDirection=sdascending) then
    sender.SortDirection:= sddescending
  else
    sender.SortDirection:= sdascending;

  VST.SortTree(column,sender.SortDirection,true);  
end;