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

[Varyana]

исходное уравнение (a3*x-a1)*a2-a0*g*sin(x)=0
нужно решить методом простых итераций и построить график зависимости в TChart x(a0).
что не так и как построить график?

procedure TForm1.Button1Click(Sender: TObject);
var
  a0,a1,a2,a3,g,x0,x,epsilon: real;
begin
  x:=StrToFloat(Edit1.Text);
  epsilon:=StrToFloat(Edit2.Text);
  a0:=8;
  a1:=2;
  a2:=50;
  a3:=7;
  g:=10;
  repeat
    x0:=x;
    x:=(a0*g*sin(x)+a1)/a2*a3;
  until abs(x0-x)<=epsilon;
  Edit10.text:=FloatToStr(x);
end;