var
t2: TfrMemoView;
begin
if not frReport1.LoadFromFile('report_statis.frf') then
begin
showmessage('加载打印模板report_statis.frf失败,请与开发商联系');
exit;
end ;
t2 := TfrMemoView(frReport1.FindObject('Memo2'));
if(t2=nil)then
begin
showmessage('统计报表中没有发现MEMO2');
exit;
end;
T2.Memo.Text :='你要加的字符';
frReport1.ShowReport;
end;