[M.A.D.M.A.N.]

Сообщение от Alegun

так ведь нужно привести NativeUInt к integer или наоборот

Нельзя такое делать, это платформозависимый тип.

Для неумеющих читать справку:

Код:

TFNHookProc = function (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;

В твоём случае будет так:

Код:

function KeyHookFunc(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;