对象数组的问题!

procedure Tfrm_book_leibiemodi.Button5Click(Sender: TObject);
var
 myobj:bookmn;
 i:integer;
 bookkind:ArrayOfBookkind ;
begin myobj:=httprio1 as bookmn;
 bookkind:=myobj.getbookkind;
 showmessage(inttostr(high(bookkind)));    //获得数组的长度
 for i:=low(bookkind) to high(bookkind) do
  begin
    stringgrid1.Cells[1,i+1]:=inttostr(bookkind[i].bookkindid);
    stringgrid1.Cells[2,i+1]:=bookkind[i].kind;
  end;
end;
==============================
showmessage()  输出的是 3
但为什么
    stringgrid1.Cells[1,i+1]:=inttostr(bookkind[i].bookkindid);
    stringgrid1.Cells[2,i+1]:=bookkind[i].kind;语句无法输出呢.............
郁闷.到底对象数组要注意什么...???????????