Delphi - intercettatore tasti

Salve, programmo in Delphi 2010.

Sto cercando di realizzare un intercettatore di tasti, dove semplicemente in un form inserisco un TMemo e al "KeyDown" del form associo

if (chr(key) in ['A','a'] ) then
memo1.lines.text:= memo1.lines.text + 'a';

il problema è che quando sono su un altra finestra non li intercetta, come posso risolvere il promema di mantenerlo sempre vigile?

devi usare la funzione GetAsyncKeyState

msdn.microsoft.com/en-us/library/…(VS.85).aspx

Come per ogni keylogger ...

ma dove lo devo mettere?

ho provato a metterlo in un Ttimer

if (GetasyncKeyState(97)<>0) then memo1.lines.text:= memo1.lines.text +'a';
if (GetasyncKeyState(98)<>0) then memo1.lines.text:= memo1.lines.text +'b';
if (GetasyncKeyState(99)<>0) then memo1.lines.text:= memo1.lines.text +'c';

ma non succede niente!

problema risolto, appena posso posto la soluzione