Source position: gem.pas line 308
procedure SetPtext(
tree: PAESTree;
obj: SmallInt;
const str: string
);