TBaseArray中CompareProc和Sort的使用方法！！！(100分)

各位大大，小弟是个新手
请问TBaseArray是可以利用CompareProc和Sort实现排序的吗，如何实现呢？
请问如何定义CompareProc和使用sort方法呢？？
最好有一个例子

这是函数定义：
TCompareProc = function ( var item1, item2 ): Integer;

记住，TBaseArray只是基类，不能直接使用，要用就用它的派生类：我用TintArray做了一个例子：
procedure TForm1.Button1Click(Sender: TObject);
var
a: TIntArray;
i: Integer;
begin
a := TIntArray.Create(4, 0);
a.SortOrder := tsDescending; //// 这个一定要在添加数据之前进行设置！！！
a.Add(1);
a.Add(8);
a.Add(4);
a.Add(5);
for I := 0 to a.Count - 1 do
begin
ShowMessage(IntToStr(a.Items));
end;
a.Free;
end;

关注一下代码注释的地方。

Good Luck！