tIntuiMessage

type tIntuiMessage = record

  ExecMessage: tMessage;

  IClass: ULONG;

  Code: Word;

  Qualifier: Word;

  IAddress: Pointer;

  MouseX: SmallInt;

  MouseY: SmallInt;

  Seconds: ULONG;

  Micros: ULONG;

  IDCMPWindow: Pointer;

  SpecialLink: pIntuiMessage;

end;