Функция и СтрингГрид

[qed]

В общем задача заключается в следующем. Дана функция 1/2*x+4*(x*x).
через эдиты вводится начальное и конечное значения Иксов - то есть что-то типа диапазона.
Все получившиеся ответы из диапазона должны выводиться в СтрингГрид.
+есть такая штука, как шаг. то есть при шаге "2" должно выводиться только каждое второе значение из диапазона.

var
Form1: TForm1;
x: integer;
y: real;
n: integer;
m: integer;
a: integer;
implementation

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
n:=StrToInt(LabeledEdit2.Text);
m:=StrToInt(LabeledEdit1.Text);
a:=StrToInt(LabeledEdit3.Text);
x:=m;
while x<=n do

begin
y:= 1/2*x+4*(x*x);

StringGrid1.Cells[1,x]:=FloatToStr(y);
StringGrid1.Cells[0,x]:=IntToStr(x);
x:=x+a;
end;

end;
end.

В общем-то это работает. но прошу помощи что бы понять - как сделать что бы в диапазон можно было вносить отрицательные значения? н-р от -10 до 5?
у меня ответы выводит в соответствующие номера ячеек стринггрида... как изменить?

[Levsha100]

Заведите еще одну переменную

i:integer;

i:=0;
while x<=n do

begin
y:= 1/2*x+4*(x*x);
i:=i+1;
StringGrid1.Cells[1,i]:=FloatToStr(y);
StringGrid1.Cells[0,i]:=IntToStr(x);
x:=x+a;
end;