[icWasya]

В сишном коде у CallBack функции стоит __stdcall, поэтому правильнее так

Код:

Tprocedure = procedure(Target: pointer);stdcall;