Problemas con Rave

[Loviedo]

Esto es lo último que he utilizado.
No olvides incluir las unidades RVClass, RVProj, RVCsStd en Uses.

Código Delphi [-]
procedure TDM.VerDocumento1(numero:integer;Texto1:string);
var
  MyPage: TRavePage;
  MyText1: TRaveText;
begin
  RvProject1.Engine := Rvwriter1;
  RvProject1.open;
  if Numero = 1 then
    begin
      With RvProject1.ProjMan do
        begin
          MyPage := FindRaveComponent('Gastos1.Page1',nil) as TRavePage;
          MyText1 := FindRaveComponent('Text9',MyPage) as TRaveText;
          MyText1.Text := Texto1;
        end;
      RvProject1.SelectReport('Gastos1',true);
    end
  else if Numero = 2 then
    begin
      With RvProject1.ProjMan do
        begin
          MyPage := FindRaveComponent('Gastos2.Page1',nil) as TRavePage;
          MyText1 := FindRaveComponent('Text9',MyPage) as TRaveText;
          MyText1.Text := Texto1;
        end;
      RvProject1.SelectReport('Gastos2',true);
    end
  else if Numero = 3 then
    begin
      With RvProject1.ProjMan do
        begin
          MyPage := FindRaveComponent('Propietarios1.Page1',nil) as TRavePage;
          MyText1 := FindRaveComponent('Text9',MyPage) as TRaveText;
          MyText1.Text := Texto1;
        end;
      RvProject1.SelectReport('Propietarios1',true);
    end
  else if Numero = 4 then
    begin
      With RvProject1.ProjMan do
        begin
          MyPage := FindRaveComponent('Propietarios2.Page1',nil) as TRavePage;
          MyText1 := FindRaveComponent('Text9',MyPage) as TRaveText;
          MyText1.Text := Texto1;
        end;
      RvProject1.SelectReport('Propietarios2',true);
    end
  else if Numero = 5 then
    begin
      With RvProject1.ProjMan do
        begin
          MyPage := FindRaveComponent('Estado1.Page1',nil) as TRavePage;
          MyText1 := FindRaveComponent('Text9',MyPage) as TRaveText;
          MyText1.Text := Texto1;
        end;
      RvProject1.SelectReport('Estado1',true);
    end;
  Fprevio := TFprevio.Create(Application);
  try
    Fprevio.ShowModal;
  finally
    Fprevio.Free;
  end;
  RvProject1.close;
end;