stringgrid

[kotopezzz]

Ребят..не поможете :

Текст:

procedure TForm1.Button1Click(Sender: TObject);
var
j: integer;
s, d, b, e: real;
begin
S := 0;
for j := 1 to StringGrid1.RowCount - 1 do
begin
if stringgrid1.cells[1,j]='' then
stringgrid1.cells[1,j]:='0';
if stringgrid1.cells[3,j]='' then
stringgrid1.cells[3,j]:='0';

if stringgrid1.cells[3,j]<='1'
then
begin
d:=StrToFloat(StringGrid1.Cells [3,j]) *
StrToFloat(StringGrid1.Cells [1,j]);
s := s + d;
edit1.text:=Floattostr(s);
end
else
begin
label2.visible:=true;
label2.caption:='Íåâåðíîå çíà÷åíèå r(i)';
end;
B:=0;
b:= StrToFloat(StringGrid1.Cells [3,j]) *
StrToFloat(StringGrid1.Cells [2,j]);
e:=e+b;
edit2.text:=Floattostr(b);

Прога запускается но считает только первое действие...во второй edit категорично ставит ноль!!! где ошибка..кто подскажет?)