关于 TBaseArray 的 Sort 用法？(100分)

有没有同志使用过 TBaseArray

Help 里头的 Sort 用法看不懂！
type TCompareProc = function (var item1, item2): Integer;
procedure Sort(Compare: TCompareProc); virtual;


底下是我的用法：

function TRLForm1.cp2(var item1, item2): Integer;
var
i,
j:integer;
begin
{}
i:=integer(item1);
j:=integer(item2);
result:=(i-j);
end;
¨
¨
¨
uFoundArray.Sort(@cp2);
¨
¨
¨

但是编译时便发出错误讯息---Variable required

请教是哪里错了？

不要不 cp2 放进类声明里, 单独放到 implementation 部分,
procedure cpe(.....)
begin
...
end;

接受答案了.

測試一下，在繁體 Windows 上使用 IE5 並在編碼為 簡體中文(GB2312)
中利用注音輸入法發言，測試是否會自動轉成簡體字碼到大富翁上。

測試成功。YA!

Delphi的Help中没有TBaseArray的Example.
能给我个TBaseArray的例子吗？
谢谢各位。