Source position: graphh.inc line 562
type lineproc = procedure(
X1: SmallInt;
Y1: SmallInt;
X2: SmallInt;
Y2: SmallInt
);