Source position: tos.pas line 353
function Pmsg(
mode: SmallInt;
mbox: LongInt;
var msg: TMSGTYPE
):LongInt;