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