[Gravitas]

Код:

var // общие
  x:array[1..3] of char = ('A','B','C');
  i:integer=1;

Таймер с интервалом 1 мс:

Код:

if (GetAsyncKeyState(Ord(x[i]))=-32767) then
 begin
 ShowMessage(X[i]+' нажата');
 i:=i+1;
 end;