Este ejemplo aunque no funciona con todas las teclas, en concreto con TAB no va, pero te puede servir para la mayoría.
Código Delphi
[-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Label1.Caption:='Tecla '+inttostr(key);
end;
Un Saludo.