Метод простых итераций в Delphi

[Tomoyo]

Строит что-то не то. Не знаю как исправить.

[Aluk@rD]

А если такое уравнение: Y =a0+a1*sin(a2*x)+a3*sin(a4*x^2)+a5* sin(a6*x^3)+a7*sin(a8*x^4), где а1-а8 задаваемые константы.. Надо тоже решить методом простых итераций, задавая точность и построить график в Delphi. У меня выдает разнообразные ошибки...

Вот код:

var
  Form1: TForm1;
  a0,a1,a2,a3,a4,a5,a6,a7,a8,y,x:real; eps,h:real;
  i,t:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

eps:=0.00001;
a0:=strtofloat(edit1.text);
a1:=strtofloat(edit2.text);
a2:=strtofloat(edit3.text);
a3:=strtofloat(edit4.text);
a4:=strtofloat(edit5.text);
a5:=strtofloat(edit6.text);
a6:=strtofloat(edit7.text);
a7:=strtofloat(edit8.text);
a8:=strtofloat(edit9.text);
x:=-1; h:=strtofloat(edit12.Text); i:=0; \\шаг и начальное приближение;
t:=round(abs(strtofloat(edit11.Text)-strtofloat(edit10.Text))/h);
if (x>(strtofloat(edit10.Text))) and (x<(strtofloat(edit11.Text))) then \\ОДЗ;
begin
Series1.Clear;
repeat
  begin
    y:=x; i:=i+1;
    x:=x+a0+a1*sin(a2*x)+a3*sin(a4*x*x)+a5*sin(a6*x*x*x)+a7*sin(a8*x*x*x*x); \\ итерационная форма;
    chart1.Series[1].addxy(y,x);   Label14.Caption:=FloatToStr(x); 
    edit13.Text:=floattostr(x); 
  end;
until (abs(y-x)>eps) and (i<>t); \\может здесь что не верно?;

end;
end;

end.

Пожалуста!!! HELP!