uses RVClass, RVProj, RVCsStd;
procedure TFDM.Verbitmap;
var
MiBitmap1: TRaveBitmap;
MyPage: TRavePage;
begin
RvProject1.open;
With RvProject1.ProjMan do
begin
MyPage := FindRaveComponent('Report1.Page1',nil) as TRavePage;
MiBitmap1:=FindRaveComponent('BitMap1',MyPage) as TRaveBitmap;
MiBitMap1.Image.LoadFromFile('d:\epes\images\aviso2.bmp');
end;
RvProject1.SelectReport('Report1',true);
RvProject1.Execute;
RvProject1.close;
end;