var Page1: TRavePage;
Text1: TRaveText;
begin
RaveProject.Open;
RaveProject1.Projectname.Page1:=FindRaveComponent('Report1.Page1',nil) as TRavePage;
RaveProject1.Projectname.Text1 :=FindRaveComponent('Text1',MyPage) as TRaveText;
Text1.Text:= 'Ok';
RaveProject1.Execute;
RaveProject1.Close;