program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,Windows;


var
  hook : HHook;


function hookproc(code: Integer; wparam: WPARAM;lparam: LPARAM): LRESULT; stdcall;
begin
 result := CallNextHookEx(hook, code, wParam, lParam);      // I have put breakpoint here
end;


procedure Start();
begin
       hook := SetWindowsHookEx(13,@hookproc,GetModuleHandle(nil),0);
end;



var
  msg : tagMSG;
begin
  Start();
  ZeroMemory(@msg,sizeof(msg));
  while GetMessage(Msg, 0, 0, 0) do
  begin
  TranslateMessage(Msg);
  DispatchMessage(Msg);
  end;
end.