Source position: graphh.inc line 596
type CircleProc = procedure(
X: SmallInt;
Y: SmallInt;
Radius: Word
);