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