procedure TForm1.Button3Click(Sender: TObject);
var
   coef0,coef1:double;
   j:integer;
begin
for j:=1  to  stringgrid2.RowCount-1 do
begin
     coef0:=strtofloat(stringgrid2.Cells[2,j]);
     coef1:=strtofloat(stringgrid2.Cells[3,j]);
     memo1.text:=floattostr(coef0-coef1);
end;
end;
end.
程序编译时没有错误，运行时也没有错误，只是运行后，只显示一个结果，其他的不显示。
       哪位高手能帮忙指导一下

procedure TForm1.Button3Click(Sender: TObject);
var
   coef0,coef1:double;
   j:integer;
begin
for j:=1  to  stringgrid2.RowCount-1 do
begin
     coef0:=strtofloat(stringgrid2.Cells[2,j]);
     coef1:=strtofloat(stringgrid2.Cells[3,j]);
     memo1.Lines.Add(floattostr(coef0-coef1));
end;
end;
end.

非常感谢高手帮忙