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