1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyPage: TRavePage;
  MyText: TRaveText;
  MyMemo: TRaveMemo;
  MyBitmap: TRaveBitmap;
  Buffer: PChar;
begin

  with RvProject1.ProjMan do
  begin
    MyPage := FindRaveComponent('Report1.Page1', nil) as TRavePage;
    MyText := FindRaveComponent('Text2', MyPage) as TRaveText;
    MyMemo := FindRaveComponent('Memo1', MyPage) as TRaveMemo;
    MyBitmap := FindRaveComponent('Bitmap2', MyPage) as TRaveBitmap;
    MyText.Text := 'hallo anwender!';
    MyText.Color := clRed;
    GetMem(Buffer, Length(Memo1.Text) + 1);
    StrCopy(Buffer, PChar(Memo1.Text));
    MyMemo.Text := Buffer;
    FreeMem(Buffer);
    MyBitmap.Image.Assign(Image1.Picture.Bitmap);
  end;
  RvProject1.ExecuteReport('Report1');
  RvProject1.Close;
end;					

1:
2:
3:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RpDefine, RpRave, RpCon, RpBase, RpSystem, RvCSStd;