class function SquareDistance(p1: CPoint; p2: CPoint): integer;

This is SquareDistance, a member of class CPoint.