KeyDataToShiftState - converts Key data to a shift state
Source position: forms.pp line 1577
function KeyDataToShiftState(
KeyData: LongInt
):TShiftState;