VirtualTreeView und Baumstruktur

[DelphiDeveloper]

Delphi-Quellcode:

procedure TFormChildArchiv.vstHeaderClick(Sender: TVTHeader;
  Column: Integer; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  if Button = mbLeft then
  begin
    with Sender, Treeview do
    begin
      if SortColumn > NoColumn then
        Columns[SortColumn].Options := Columns[SortColumn].Options + [coParentColor];


        if (SortColumn = NoColumn) or (SortColumn <> Column) then
        begin
          SortColumn := Column;
          SortDirection := sdAscending;
        end
        else
          if SortDirection = sdAscending then
            SortDirection := sdDescending
          else
            SortDirection := sdAscending;

        Columns[SortColumn].Color := $F7F7F7;
        SortTree(SortColumn, SortDirection, False);



    end;
  end;
end;

geht es nicht wenn du meine Sonderbehandlung der 0.ten spalte rausscheißt.
Habs mal bei mir auf die schnelle gemacht und es funzt.