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