88     cursorRight: boolean;

    88     cursorRight: boolean;

    89     

    89     

    90 procedure setiPhoneBinds;

    90 procedure setiPhoneBinds;

    91 {$ENDIF}

    91 {$ENDIF}

    92 implementation

    92 implementation

    95 

    95 

    96 var tkbd, tkbdn: TKeyboardState;

    96 var tkbd, tkbdn: TKeyboardState;

    97     KeyNames: array [0..cKeyMaxIndex] of string[15];

    97     KeyNames: array [0..cKeyMaxIndex] of string[15];

    98     

    98     

    99 function KeyNameToCode(name: shortstring): word;

    99 function KeyNameToCode(name: shortstring): word;