VST / Spalten sortieren

[ucor]

Hallo,

ich versuche nun seit einiger Zeit die Spalten im VST zu sortieren.
Es passiert aber nichts, wenn ich auf die Header klicke.
Habe im Moment den absoluten Blackout, oder zuviel Wein getrunken.
Vielleicht erkennt jemand den Fehler.

Delphi-Quellcode:

procedure TSTF.VST2CompareNodes(Sender: TBaseVirtualTree; Node1,
  Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
var
  Data1, Data2 : PTreeData;
begin
  Data1:= Sender.GetNodeData(Node1);
  Data2:= Sender.GetNodeData(Node2); 
  case Column of
      0:
        Result:= CompareText(Data1.FName,Data2.FName);
      1:
        Result:= CompareText(Data1.FOrt,Data2.FOrt);
      2:
        Result:= CompareText(Data1.FArtikel,Data2.FArtikel);
  end;
end;


procedure TSTF.VST2HeaderClick(Sender: TVTHeader; Column: TColumnIndex;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  VST2.SortTree(Column,sender.SortDirection,True);
  if Sender.SortDirection= sdAscending then
    sender.SortDirection:= sdDescending
  else
  Sender.SortDirection:= sdAscending;
end;

Gruß U.