TIntuiMessage

type TIntuiMessage = record

  ExecMessage: TMessage;

  IClass: LongWord;

  Code: Word;

  Qualifier: Word;

  IAddress: APTR;

  MouseX: SmallInt;

  MouseY: SmallInt;

  Seconds: LongWord;

  Micros: LongWord;

  IDCMPWindow: PWindow;

  SpecialLink: PIntuiMessage;

end;