вектор в трехмерном пространстве

procedure Line3D(Canvas:TCanvas; X1,Y1,Z1,X2,Y2,Z2:real; offsetX,offsetY:integer);
const kx = 0.5; ky = 0.5;
begin
Canvas.MoveTo(offsetX+round(Scale*(X1-Z1*kx)),offsetY+round(Scale*(Z1*ky-Y1)));
Canvas.LineTo(offsetX+round(Scale*(X2-Z2*kx)),offsetY+round(Scale*(Z2*ky-Y2)));
end;
 
procedure DrawArrow3D(Canvas:TCanvas; X,Y,Z:real; offsetX,offsetY:integer; angle,length:real);
const kx = 0.5; ky = 0.5;
const ang_off = pi/16;
var xb,yb:integer;
begin
xb:=offsetX+round(Scale*(X-Z*kx));
yb:=offsetY+round(Scale*(Z*ky-Y));
Canvas.MoveTo(xb+round(length*cos(angle+ang_off)),yb+round(length*sin(angle+ang_off)));
Canvas.LineTo(xb,yb);
Canvas.LineTo(xb+round(length*cos(angle-ang_off)),yb+round(length*sin(angle-ang_off)));
end;

procedure VectorSum(Canvas:TCanvas; X1,Y1,Z1,X2,Y2,Z2:real; offsetX,offsetY:integer);
begin
Line3D(Canvas,0,0,0,X1,Y1,Z1,offsetX,offsetY);
Line3D(Canvas,0,0,0,X2,Y2,Z2,offsetX,offsetY);
Line3D(Canvas,0,0,0,X1+X2,Y1+Y2,Z1+Z2,OffsetX,OffsetY);
{$Message HINT 'Complete with arrows'}
end;

VectorSum(Image1.Canvas,X1,Y1,Z1,X2,Y2,Z2,Image1.Width div 2,Image1.Height div 2); {where X1,Y1,Z1,X2,Y2,Z2 might be some values}