Как задать интервал в Delphi?

У меня такая программа, которая должна быть ограничена на [x0,x1]. Графики y=a*i*i+b, y=c*i*i+d;
Var a,b,c,d,i:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
d:=StrToFloat(Edit4.Text);
Chart1.Series[1].Clear;
i:=0;
While i<=10 do begin
Chart1.SeriesList[0].AddXY(i,a*i*i+b,'',clred);
Chart1.SeriesList[1].AddXY(i,c*i*i+d,'',clgreen);
i:=i+0.01;