求解一个delphi循环显示数据的程序

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.
程序编译时没有错误，运行时也没有错误，只是运行后，只显示一个结果，其他的不显示。
       哪位高手能帮忙指导一下