Source position: pastree.pp line 1812
procedure FreeProcNameParts(
var NameParts: TProcedureNameParts
);