Error: Inkompatible Typen Reguläre Prozedur u Methodenzeiger

[shmia]

Delphi-Quellcode:

TMyList = class(TList) 
  protected 
     SortedColumn: Integer; 
  public 
     procedure SortByColumn(Column: Integer); 
  end; 

implementation
var
   _sortlist: TMyList;  // globale hilfsvariable

// "normale" Funktion
function MyListSortCompare(Item1, Item2: Pointer): Integer; 
begin 
  result := MachWas(Item1, Item2, _sortlist.SortedColumn); 
end;

procedure TMyList.SortByColumn(Column: Integer); 
begin 
  SortedColumn := Column;
  _sortlist := self;
  Sort(MyListSortCompare); 
end;