@SHerlock
In 11.3 is changed to
class operator TPoint.Explicit(Value: TPoint): TSmallPoint;
begin
if Value.x < Low(SmallInt) then
Result.x := Low(SmallInt)
else if Value.x > High(SmallInt) then
Result.x := High(SmallInt)
else
Result.x := SmallInt(Value.x);
if Value.y < Low(SmallInt) then
Result.y := Low(SmallInt)
else if Value.y > High(SmallInt) then
Result.y := High(SmallInt)
else
Result.y := SmallInt(Value.y);
end;