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: Integer;

            ie_y: Integer;

          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;