TXClientMessageEvent

type TXClientMessageEvent = record

  _type: cint;

  serial: culong;

  send_event: TBool;

  display: PDisplay;

  window: TWindow;

  message_type: TAtom;

  format: cint;

  data: record

    case LongInt of

      0: (

          b: array [0..19] of cchar;

        );

      1: (

          s: array [0..9] of cshort;

        );

      2: (

          l: array [0..4] of clong;

        );

  end;

end;