anchor.diff:      X1 := X2;
       Y1 := Y2;
     end;
  -  Canvas.EndDraw;
  +
   end;
   
   procedure TMainForm.DrawLines;
  
positive.code:   X1 := 300;
    Y1 := 100;
    Theta := 0;
    Canvas.BeginDraw;
    while Theta < 15 * 3.1415926535 do
    begin
      X2 := trunc(X1 + Cos(Theta) * Theta);
  
negative.code: 
      theta := theta + 10;
    end;
  end;
  
  procedure TMainForm.DrawSpiral;
  