tAppMessage

type tAppMessage = record

  am_Message: tMessage;

  am_Type: Word;

  am_UserData: ULONG;

  am_ID: ULONG;

  am_NumArgs: ULONG;

  am_ArgList: pWBArgList;

  am_Version: Word;

  am_Class: Word;

  am_MouseX: SmallInt;

  am_MouseY: SmallInt;

  am_Seconds: ULONG;

  am_Micros: ULONG;

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

end;