Точка с тремя вещественными коодинатами
type TDoublePoint3D = packed record X: Double; Y: Double; Z: Double; end;