VST Sortieren

[youuu]

Hi,

ich habe zum Sortieren des VST diesen Code.

Delphi-Quellcode:

procedure TFormMain.VstEmpfaengerHeaderClick(Sender: TVTHeader;
  Column: TColumnIndex; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  if Button= mbLeft then
  Begin
    if Column= VstEmpfaenger.Header.SortColumn then
      VstEmpfaenger.Header.SortDirection:= TSortdirection(1- ord(VstEmpfaenger.Header.SortDirection))
    else
      VstEmpfaenger.Header.SortColumn:= Column;
  End;
end;

jedoch bekomm ich beim compelieren diesen Fehler.
Kann mir jemand das erklären?



[DCC Fehler] UnitMain.pas(261): E2010 Inkompatible Typen: 'VirtualTrees.TSortDirection' und 'UnitMain.TSortDirection'