关于TLIST的问题

Question

昨日小弟问了一个问题：在TList的SORT方法中：用到以下比较方法：
TListSortCompare = function (Item1, Item2: Pointer): Integer;
如何得知function (Item1, Item2: Pointer): Integer的内容，是否可以重载比较得方法？有大虾答：
你写一个TListSortCompare类型的过程,然后,在sort中传入该过程的名称不就行了吗?但小弟不知过程怎么定义？能否请哪位给个例子？

Answer 1

TListSortCompare = function (Item1, Item2: Pointer): Integer;
// ...function MySort(Item1, Item2: Pointer): Integer;
// ...var
  MySortCompare: TListSortCompare;
  iResult: Integer;
//...MySortCompare := MySort;
iResult := MySortCompare(MyItem1, MyItem2);