Как задать интервал в 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