function Summ(QP:TPoint3d;P2:TPoint3d):TPoint3d; begin Result.X:=QP.X+P.X; Result.Y:=QP.Y+P.Y; Result.Z:=QP.Z+P.Z; end;