Problem mit CustomSort in Listview

[shmia]

Delphi-Quellcode:

function ComparePrio(a,b:integer);
begin
   if a > b then
      result := 1
   else if a = b then
      result := 0
   else
      Result := -1;
end;

function AuswertungSortProc(Item1, Item2: TListItem; Data: Integer): Integer; stdcall; 
   var prio1,prio2:integer; 
begin 
   Result:=CompareText(Item1.Caption,Item2.Caption) 
   if Result = 0 then
      Result := ComparePrio(strtoint(item1.SubItems[0]), strtoint(item2.SubItems[0]));
//    if data = 1 then Result := -Result;  // das würde ich erst mal auskommentieren, sicher ist sicher
end;