fr用代码加记录计数的问题

Question

我想用代码在页脚上加上本页显示记录数，以下是偶写的，可是老是报
abstract error！请各位指点一下
procedure TMain.BtnPreViewClick(Sender: TObject);
var
    tempb : Tfrbandview;
    frTitleMemo : Tfrview;
    frDataMemo : Tfrview;
    tempp : Tfrpage;
    fieldcount : integer;
    i : integer;
    frCountMemo : Tfrview;
begin
    fieldcount := LBoxSelected.Items.Count;
    frreport1.LoadFromFile(FrfPath+'2.frf');
    tempp := frreport1.Pages[0];    for  i:=0 to fieldcount-1 do
    begin
        frTitleMemo := Tfrmemoview.Create;
        frTitleMemo.SetBounds((20+i*trunc(758/fieldcount)),80,trunc(758/fieldcount),16);
        frTitleMemo.BandAlign := baleft;
        frTitleMemo.Prop['Alignment'] := frtaleft;
        frTitleMemo.Prop['font.style'] := 6;
        //frTitleMemo.Memo.
        frTitleMemo.Memo.Add(LBoxSelected.Items[i]);
        tempp.Objects.Add(frTitleMemo);
    end;
 
    tempb := Tfrbandview.Create;        //就是这里
    tempb.BandType := btPageFooter;
    tempb.SetBounds(0,416,758,20);
    tempp.Objects.Add(tempb);    frCountMemo := Tfrview.Create;
    frCountMemo.SetBounds(0,416,758,16);
    frCountMemo.BandAlign := baleft;
    frCountMemo.FrameStyle := 8;
    frCountMemo.Memo.Add('count:');
    tempp.Objects.Add(frCountMemo);    frreport1.ShowReport;