TPointD

TPointD = record
X, Y: double;
end;