Delphi - TreeNode の CustomSort で無名メソッドは利用不可

Delphi - TreeNode の CustomSort で無名メソッドは利用できないらしい

下記のコード、コンパイルは通るんだけど、実行時にエラーが出る

1. TreeNode.CustomSort(@function(Node1, Node2: TTreeNode; Data: Longint): Integer stdcall  
2. begin  
3.         Result := AnsiCompareText(Node1.Text, Node2.Text);  
4. end, 0);  

TreeNode.CustomSort(@function(Node1, Node2: TTreeNode; Data: Longint): Integer stdcall
begin
        Result := AnsiCompareText(Node1.Text, Node2.Text);
end, 0);

CustomSort の引数が、メソッドポインタなのが原因のようで、ヘルプの無名メソッドにも「無名メソッドを通常のメソッド ポインタに代入することはできません」とある
関数を外へ出せば済むだけなので、今回は深く考えずにおこおう