VirtualStringTree-HeaderClick Ereignis Problem

[konda]

Hallo,
seit kurzem verwende ich die VirtualStringTree-Komponente. Jetzt soll mit der Komponente eine Liste dargestellt werden und beim HeaderClick die Liste sortiert werden:

Delphi-Quellcode:

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

Wenn ich nun aber das Programm starte und das erstemal auf eine Columne klicke passiert gar nichts. Erst beim 2.Mal sortiert sich die Liste. Woran liegt das?