InteractiveTools
type TPoint64 = record
X: Int64;
Y: Int64;
class operator Implicit(APoint: TPoint): TPoint64;