Source position: keyboard.pp line 50
procedure AddSequence(
const St: ShortString;
AChar: Byte;
AScan: Byte
);