어플리케이션 레벨에서 키보드 메시지를 후킹하는 컴포넌트 및 예제입니다.
(시스템 레벨의 후킹이 아님, 즉, 다른 프로세서의 키보드 메시지는 후킹하지 못합니다.) 

폼 작성시에 Form 속성에서 KeyPreview를 True로 세트해 두어도 OnKeyDown Event가 발생하지 않는 경우나 다른 폼에서 발생한 키 입력의 가로채기 또는 글로벌 핫키 설정 등에 유용합니다.

(참고) 
글로벌 핫키 설정 예 : 메인 폼에 TKeyHook을 올려놓고 AppGlobal과 Enabled 프로퍼티를 True로 Set, 그리고 OnKeyDown 이벤트 프로시져를 아래와 같이  코딩해 두면 프로그램의 포커스가 어느 폼에 있던지 상관없이 F1 키를 누르면 도움말이 뜨게 할 수 있다.

procedure TMainForm.KeyHook1KeyDown(Sender: TObject; wParam,
  lParam: Integer; var Discard: Boolean);
begin
   if wParam = VK_F1 then
      HtmlHelpA(GetDesktopWindow, pAnsiChar(Extractfilepath(paramStr(0)) + 'MyHelpFile.chm'), HH_DISPLAY_TOPIC, 0);
end;