ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Всем привет! Вот возникла необходимость переписать программку с ХР на 7-вен.
Как портировать вот такой код?

function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
msg: PEVENTMSG;
begin
if Code >= 0 then begin
result := 0;
msg := Pointer(LParam);
with Form1 do
if msg.message = WM_LBUTTONDOWN then
l_click:=true;
end
else
result := CallNextHookEx(HookHandle, code, WParam, LParam);

Как быть, какие есть способы решения моей проблемки???
Помогите любым советом, сам я сейчас весь в гугле. Может кто сталкивался с похожей ситуацией и нашёл какое-небудь решение???
Отблагодарю за любую помошь. Спосибо что уделиле время на прочтения данного поста.
end;