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