在delphi中怎么样给报表rave中的text或者datatext附值？？？（１００）分奉上　(100分)

在delphi中怎么样给rave中的text附值？？？？（

http://tinyurl.com/jpze5 看下
再下载这个
http://www.nevrona.com/rave/files/publicclasses30g.pdf

procedure TfrmMain.PrintAccept(Sender: TObject);

VAR
RvPage:TRavePage;
txtTitle,txtFileNumber,txtCompany,txtRecNumber, : TRaveText;
begin
frmMain.RvProject.Open;
with frmMain.RvProject.ProjMando
begin
RvPage := FindRaveComponent('Accept.Page1',nil) as TRavePage;
//Accept为报表名称
txtTitle := FindRaveComponent('txtTitle',RvPage) as TRaveText;
//txtTitle为报表中的text
txtFileNumber := FindRaveComponent('txtFileNumber',RvPage) as TRaveText;
txtCompany := FindRaveComponent('txtCompany',RvPage) as TRaveText;
txtRecNumber := FindRaveComponent('txtRecNumber',RvPage) as TRaveText;
txtTitle.Text := '验收单';
txtFileNumber.Text := 'wxjc-jl1-设备-08';
txtRecNumber.Text := '№：';
txtCompany.Text := '猴山公园';
end;
try
frmMain.RvProject.ExecuteReport('Accept');
finally
frmMain.RvProject.Close;
end;
end;