tInputEvent

type tInputEvent = record

  ie_NextEvent: pInputEvent;

  ie_Class: Byte;

  ie_SubClass: Byte;

  ie_Code: Word;

  ie_Qualifier: Word;

  ie_position: record

    case LongInt of

      0: (

          ie_xy: record

            ie_x: SmallInt;

            ie_y: SmallInt;

          end;

        );

      1: (

          ie_addr: Pointer;

        );

      2: (

          ie_dead: record

            ie_prev1DownCode: Byte;

            ie_prev1DownQual: Byte;

            ie_prev2DownCode: Byte;

            ie_prev2DownQual: Byte;

          end;

        );

  end;

  ie_TimeStamp: ttimeval;

end;