Алгоритм Брезенхема для 3-х координат

procedure TForm1.Button1Click(Sender: TObject);
var
    x1,x2,y1,y2,dx,dy,s1,s2,x,y,o,i,v,obmen   : integer;
begin
  x1:=strtoint(edit1.Text);
  y1:=strtoint(edit2.Text);
  x2:=strtoint(edit3.Text);
  y2:=strtoint(edit4.Text);
  x:=x1;
  y:=y1;
  dx:=(abs(x2-x1));
  dy:=(abs(y2-y1));
  if (x2-x1)<=0 then s1:=-1 else s1:=1;
  if (y2-y1)<=0 then s2:=-1 else s2:=1;
  if dy>dx then
  begin
    v:=dx;
    dx:=dy;
    dy:=v;
    obmen:=1;
  end
  else obmen:=0;
  o:=2*dy-dx;
  for i := 1 to dx do
  begin
    form1.Canvas.Pixels[x,y]:=clBlack;
    while o>=0 do
    begin
      if obmen=1 then
      x:=x+s1
      else
        y:=y+s2;
      o:=o-2*dx;
    end;
    if obmen=1 then y:=y+s2
    else x:=x+x1;
    o:=o+2*dy;
  end;
  
end;

var
    z1,z2,x1,x2,y1,y2,dx,dy,dz,s1,s2,s3,x,y,z,o,oz,i,v,obmen   : integer;
begin
  memo1.Clear;
  x1:=strtoint(edit1.Text);
  y1:=strtoint(edit2.Text);
  x2:=strtoint(edit3.Text);
  y2:=strtoint(edit4.Text);
  z1:=strtoint(edit5.Text);
  z2:=strtoint(edit6.Text);
  x:=x1;
  y:=y1;
  z:=z1;
  dx:=(abs(x2-x1));     
  dy:=(abs(y2-y1));
  dz:=(abs(z2-z1));
  if (x2-x1)<=0 then s1:=-1 else s1:=1;   
  if (y2-y1)<=0 then s2:=-1 else s2:=1;
  if (z2-z1)<=0 then s3:=-1 else s3:=1;
  if dy>dx then        
  begin
    v:=dx;
    dx:=dy;
    dy:=v;
    obmen:=1;    
  end
  else obmen:=0;
  o:=2*dy-dx;
  oz:=2*dy-dz;
  for i := 1 to dx do
  begin
    memo1.lines.add(inttostr(x)+' '+inttostr(y)+' '+inttostr(z));
    form1.Canvas.Pixels[x+100,y+100]:=clBlack;
    while o>=0 do
      begin
        if obmen=1 then
          x:=x+s1
          else
          y:=y+s2;
        o:=o-2*dx;
 
      end;
    if obmen=1 then
      y:=y+s2
      else
      x:=x+s1;
    o:=o+2*dy;
 
   while oz>=0 do
   begin
         z:=z+s3;
         oz:=oz-2*dz;
   end;
 
  end;
 // form1.refresh;
 // self.Repaint;
end;
 
 
end.