动态生成报表出现异常

Question

我用RM2.6动态生成报表，代码如下。可是执行时出现异常。请高手解答一下问题在哪里。
var page : TrmPage;
   b: TrmBandView;
   v: TrmView;
begin
  rmReport1.Pages.Clear;
  rmReport1.Pages.Add;
  rmReport1.pages.Pages[0].ChangePaper(256,3800,2800, 0,poPortrait);
  Page := rmReport1.Pages[0];  b:= TrmBandView(rmCreateObject(gtBand, ''));
  b.SetBounds(20, 20, 0, 60);
  b.BandType := btpageheader;
  Page.Objects.Add(b);
  v := TRmView(rmCreateObject(gtMemo, ''));
  v.SetBounds(20,40, 700, 32);
  TrmMemoView(v).Font.Name:='宋体';
  TrmMemoView(v).Font.Size:=11;
  TrmMemoView(v).Font.Style := [];
  TrmMemoView(v).BandAlign := rmbacenter;
  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~跟踪了一下问题出在这里。但是不知如何解决
  v.Memo.Add('报表');
  Page.Objects.Add(v);
  rmReport1.ShowReport;