Source position: pastree.pp line 1174
type TProcedureMessageType = (
pmtNone,
pmtInteger,
pmtString
);