Problem with the Sort method of the TList-class

Hello !

I'm using a TList descendant as a collection for my business objects.
This works fine, but I have a problem with the Sort method.

I have a private method in my object:
   function compareFunc(ts1,ts2 : Pointer) : Integer;

But when I call the
   sort(comparefunc);
I get Incompatible types : 'TListSortCompare' and 'Procedure of Object'

Another problem:
  How do I use the ts1 and ts2 pointers as the objects they are:
  how to : ts1.getActivityNumber ???

Fredrik Viken