Помогите разобраться с методом CustomSort

Помогите разобраться с методом CustomSort компонента TListView

пример в хелпе приведен в виде

>>int __stdcall CustomSortProc(long Item1, long Item2, long ParamSort)
>>
>>{
>> return -lstrcmp(((TListItem *)Item1)->Caption.c_str(),
>> ((TListItem *)Item2)->Caption.c_str());
>>
>>}
>>
>>void __fastcall TForm1Button1Click(TObject *Sender)
>>
>>{
>> ListView1->CustomSort(CustomSortProc, 0);
>>}

Используя его получаю следующие ошибки компилятора.

[C++ Error] Unit1.cpp(28) E2034 Cannot convert 'int (__stdcall * (_closure)(long,long,long))(long,long,long)' to 'int (__stdcall *)(long,long,long)'.

[C++ Error] Unit1.cpp(28) E2343 Type mismatch in parameter 'SortProc' in call to '_fastcall TCustomListViewCustomSort(int (__stdcall *)(long,long,long),int)'.

в чем неправ Что нужно слелать чтобы убрать ошибки и чтобы работало
Спасибо
Андрей.