ttp://hp.vector.co.jp/authors/VA009712/take/delphi/kabedel.htm
でもやはりItemになっているみたいで
また、引数をTLVCompare = function(lParam1, lParam2, lParamSort: Integer): Integer stdcall;
に合わせてみたのですがやはり駄目でした。もう少しふんばってみます