This routine prototype is a hook for OutTextXY
Source position: graphh.inc line 555
type OutTextXYProc = procedure(
x: SmallInt;
y: SmallInt;
const TextString: String
);