给指定的页面动态生成一个Memo1并从delphi中传个值过来(50分)

根据预览时生成的页面个数，给指定的页面动态生成一个Memo1并从delphi中传个值过来。
我用的的代码如下，在第一页可以成功，从第2页起就不行了
procedure TPreview1.preview(frfname: string);
var
Page: TfrPage;
NUM: TfrView;
begin
frReport1.LoadFromFile(frfname);
Page := frReport1.Pages[0];
//Pages[0]可以成功
Num:= frCreateObject(gtMemo, '');
Num.SetBounds(416, 428, 103, 18);
Num.Memo.Add('中国');
Page.Objects.Add(Num);
frReport1.ShowReport;
frpreview1.ShowToolbar:=true;
end;
=========================================================
Pages[0]可以成功，当变成Pages[1]的时候，就报错
错误信息："List index out of bounds(1)"
解决不了了，求各位指点一二
=========================================================
或者教我怎么在最后一页生成一个memo也行
我在这先行谢过了

可能是你的处理放的地方不对！

那我要怎么样才算对了，请指教

还有人知道吗

还有人知道吗