В принципе проблема решена второй аналогичной функцией
Код:
function LowLevelMouseProc(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall;
var DC: HDC;
cur:TPoint;
begin
Result:= CallNextHookEx(MouseHook, nCode, WParam, LParam);
if WParam = WM_MBUTTONDOWN then ptg;
end;
только для клавиатуры