var
Page1:TRavePage;
Text1:TRaveText;
begin
rvproject1.open;
with rvproject1.projman do
begin
Page1:=FindRaveComponent('report1.page1',nil) as TRavePage;
Text1:=FindRaveComponent('Txt_Title',page1) as TRaveText;
Text1.text:='2001-1-1'
end;
try
rvproject1.executereport('report1');
finally
rvproject1.close;
end;
end;