3
{ This program demonstrates the PutKeyEvent function }
12
Writeln('Press keys, press "q" to end.');
22
K:=TranslateKeyEvent(K);
23
Writeln('Got key : ',KeyEventToString(K));
27
K2:=TranslateKeyEVent(K2);
28
Writeln('Put key : ',KeyEventToString(K2))
31
Until (GetKeyEventChar(K)='q');