[DarkRiDDeR]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, imax, sh, a, l: extended;
begin
  series1.Clear;
  i := -pi/2+0.5;
  imax := pi/2-0.5;
  a := StrToFloat(Edit1.Text);
  l := StrToFloat(Edit2.Text);
  sh := StrToFloat(Edit3.Text); //шаг

   while i <= imax do
 begin
  series1.AddXY(round(a+l*cos(i)), round(a*tan(i)+l*sin(i)),'', colorbox1.Selected);
  i := i + sh;
 end;


end;

Даже рисуя часть ветви выходит какая-то фигня, хотя должно быть что-то такое(" Без имени.png"). Уже всё перетыкал. Нужна помощь