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