Sobre o teclado

olha.. eu tenho uma função que se o cara pressionar as teclas QUE EU DEFINIR em qualquer programa ele executa algo que eu queira.
Agora, vc. podera ter uma base de como fazer ou como adaptar isto ao seu problema..

function tbKeyIsDown(const Key: integer): boolean;
begin
Result := GetKeyState(Key) and 128 > 0;
end;


procedure TPrincipal.PegaTeclaTimer(Sender: TObject);
begin
If tbKeyIsDown(VK_CONTROL) Then // Tecla CTR
If tbKeyIsDown(VK_MENU) then // Tecla Alt
If tbKeyIsDown(81) then // tecla Q
CarregaSoftDeCamera;
// --------------------------------------------------
// | Ctr + Alt + Q |
// | Executa a caprura automatica |
// --------------------------------------------------
end;



Mas obs.: O timer esta com um interval de 80 Milsec.

Gostaria de saber se não existe alguma forma de pegar as informações no buffer do teclado, ou algo assim.