AdTypes
type TAdPoint = packed record
A replacement for TPoint.
X: Longint;
Y: Longint;
X-Coordinate
Y-Coordinate