TPointD

TPointD = record
X, Y : double;
end;