Source position: gem.pas line 309
procedure GetPtext(
tree: PAESTree;
obj: SmallInt;
out str: string
);