var Hookhandle:hHook;
function myHook(code: integer;WParam:word;Lparam:Longint): Longint;stdcall;
 var msg:PEVENTMSG;
 begin
 with form1 do
 case msg.message of
 WH_CBT: memo1.Lines.Add(intToStr(msg.paramh));end;end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.FormStyle:=fsStayOnTop;
Hookhandle:=setWindowsHookEx(0,@myHook,HInstance,0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
if Hookhandle<>0 then UnhookWindowshookex(Hookhandle);
end;