contador de teclas utilizando Keyboard Hook

Estou tentando desenvolver para o meu aplicativo, um pequeno contador de teclas usando um Keyboard Hook. A procedure ´FormKeyDown´ funciona apenas quando o programa está aberto. Se eu minimizo ele, o contador não funciona. A procedure ´FormKeyDown´ está assim:
----------------------------------
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
cont:=cont+1;
label2.caption:= inttostr(cont);
--------------------------------

Como disse, a função conta as teclas digitadas apenas quando o programa está em primeiro plano. Se fica em background ou minimizado, as teclas digitadas não são contadas. Se alguém souber como fazer algo parecido, utilizando o Keyboard Hook, ficaria imensamente agradecido.


Saudações!!!