TAppMessage

type TAppMessage = record

  am_Message: TMessage;

  am_type: Word;

  am_UserData: IPTR;

  am_ID: IPTR;

  am_NumArgs: LongInt;

  am_ArgList: PWBArgList;

  am_Version: Word;

  am_Class: Word;

  am_MouseX: SmallInt;

  am_MouseY: SmallInt;

  am_Seconds: LongWord;

  am_Micros: LongWord;

  am_Reserved: array [0..7] of LongWord;

end;