Cтруктура расширенного описания точки с вещественными координатами
type TDoublePointExt = record LastPointNumber: integer; OffsetFromLastPoint: double; p: TDoublePoint; end;