[Alexandr_17_10]

В принципе проблема решена второй аналогичной функцией

Код:

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;

только для клавиатуры