Error: Inkompatible Typen Reguläre Prozedur u Methodenzeiger

[sirius]

Das muss auch einfach ohne ASM gehen

Delphi-Quellcode:

procedure TMyList.SortByColumn(Column: Integer); 
var MyListComparef:function(Item1,Item2:Pointer):integer; 
    m:Tmethod;
begin 
  SortedColumn := Column; 

  asm //m.code:=@MyListCompare (ging leider nur so)
    push edi
    mov edi, offset MyListCompare
    mov m.code,edi
    pop edi
  end;

  m.Data:=self;  

  MyListcomparef:=MakeProcInstance(m); //<-- Fehler: Nicht genügend wirkliche Parameter 
  Sort(MyListSortCompare); 
  FreeProcinstance(MyListcompareF); 
end;

Wie weist man nur m eine Methode zu?