Source position: keybrdh.inc line 285
function ShiftStateToString(
KeyEvent: TKeyEvent;
UseLeftRight: Boolean
):string;