TPointD

TPointD = record
X : double;
Y : double;
end;