[TList] Tri avec Sort

Bonjour,

J'aimerais trier une TList en utilisant la fonction Sort. Mon code est le suivant :

Code:

---

1 2 3 4 5 6 7

function CompareInactiveWorkers(ASquare1, ASquare2 : Pointer) : integer; begin Result := TSquare(ASquare2).FUnemployment - TSquare(ASquare1).FUnemployment; end; Squares := TList.Create; Squares.Add(TSquare.Create); Squares.Sort(@CompareInactiveWorkers);

---

J'obtiens une erreur de compilation :

Code:

---

Error: Incompatible type for arg no. 1: Got "<address of function(TAbstractSquare,TAbstractSquare):LongInt;Register>", expected "<procedure variable type of function(Pointer,Pointer):LongInt;Register>"

---