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