function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall;
var
   msg:TEventMsg;
   p : TPoint;
begin
  Result:=0;
  if iCode < 0 then
    Result := CallNextHookEx(hHook,iCode,wParam,lParam)
  else if icode=HC_ACTION then begin
    msg:=pEventMSG(lParam)^;
    if msg.message=WM_LBUTTONDOWN then begin
       MainForm.Memo1.Lines.add('WM_LBUTTONDOWN');
   end;
    if msg.message=WM_LBUTTONUP then begin
       MainForm.Memo1.Lines.add('WM_LBUTTONUP');
    end;        if msg.message=WM_MBUTTONDOWN then begin
       MainForm.Memo1.Lines.add('WM_MBUTTONDOWN' ':' 
                 inttostr(msg.paramL) '-' inttostr(msg.paramH));
    end;
    if msg.message=WM_MBUTTONUP then begin
       MainForm.Memo1.Lines.add('WM_MBUTTONUP' ':' 
                 inttostr(msg.paramL) '-' inttostr(msg.paramH));
    end;
  end;
end;