PeekMessage(Msg,0,WM_KEYFIRST,WM_KEYLAST,PM_NOREMOVE);
label3.Caption:=inttostr(msg.wParam);

procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
var Msg:TMsg;
begin
while PeekMessage(Msg,0,WM_KEYFIRST,WM_KEYLAST,PM_REMOVE) do
keybeenpressed(msg.wParam);
end;

//globale funktion
function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM)
:LRESULT; stdcall;
begin
form1.keybeenpressed(wParam);
result:=callnexthookex(hookhandle,ncode,wparam,lparam);
end;

//formcreate
procedure TForm1.FormCreate(Sender: TObject);
begin
CTI1.MinimizeToTray:=true;
CTI1.IconVisible:=true;
hookhandle:=setwindowshookex(WH_KEYBOARD,@KeyboardHookProc,0,0);
end;

//formdestroy
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnhookWindowsHookEx(hookhandle);
end;

library P_Hook;

uses
  Windows,
  Messages,
  sysutils;

var hookhandle:cardinal=0;
    key:integer=0;
    keynew:boolean=false;

function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM):
LRESULT; stdcall;
begin
//es ist ebenfalls möglich die Bearbeitung an eine Bedingung zu knüpfen
//it's possible to call CallNextHookEx conditional only.
  Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
  key:=wparam;
  keynew:=true;
end;

function getLastKey:integer;
begin
if keynew then result:=key
else result:=-1;
keynew:=false;
end;


function InstallHook: Boolean; stdcall;
begin
  Result := False;
  if HookHandle = 0 then begin
//Erstmal Hook installieren
//First install the hook
    HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardHookProc,
    HInstance, 0);

    Result := TRUE;
  end;
end;

function UninstallHook: Boolean; stdcall;
begin
//Hook aus der Hookchain entfernen
//Uninstall hook from hook chain
  Result := UnhookWindowsHookEx(HookHandle);
  HookHandle := 0;
end;

exports
//Installations- und Deinstallationsroutine exportieren
//Export the installation and deinstallation routine
  InstallHook,
  UninstallHook,
  getLastKey;

end.