Rave Report картинку вставить Chart `a

http://www.sql.ru/forum/actualthread.aspx?tid=172907

Код:

void __fastcall TfrmResultsViewer::N3Click(TObject *Sender)
{
Chart1->SaveToBitmapFile("111.bmp");
RvProject1->Open();
RvProject1-> SelectReport(L"SimplePage", false);
RvProject1->SetParam(L"Max_peek",Max_peek->Text);
RvProject1->SetParam(L"Mass",Mass->Text);
RvProject1->SetParam(L"Square",Square->Text);
//RvProject1->SetParam(L"Square",Square->Text);
RvProject1->SetParam(L"Graph", "c:\111.bmp");
RvProject1->Execute();
RvProject1->Close();
}

все равно не открывает картинку...
Правда куда писать и как
Self.FileLink := RaveProject.GetParam('pMyImage');
я так и не понял
OnBeforePrint есть событие такое у rvProject , а не в самом фаиле рейва.
Да и потом что такое Self ?

блин как такое перевести?

Код:

procedure TResultRas.BitBtn1Click(Sender: TObject);
var
MyPage: TRavePage;
MyImg:TRaveBitmap;

begin
RvProject1.SetProjectFile(ExtractFilePath(Application.ExeName)+'Report.rav');
RvProject1.Open;
With RvProject1.ProjMan do begin
MyPage := FindRaveComponent('Resultat.MainPage',nil) as TRavePage;
MyImg:=FindRaveComponent('Bitmap1',MyPage) as TRaveBitmap;
MyImg.Image:=Form1.Image1.Picture.Graphic;
end;//with
RvProject1.ExecuteReport('Resultat');
RvProject1.Close;
end;

Код:

TRavePage MyPage;
TRaveBitmap MyImg;

RvProject1->SetProjectFile('Project1.rav');
RvProject1->Open();

RvProject1->ProjMan->MyPage = FindRaveComponent(L"SimplePage.Page1",nil) as TRavePage;
RvProject1->ProjMan->MyImg=FindRaveComponent("Bitmap1",MyPage) as TRaveBitmap;
RvProject1->ProjMan->MyImg->Image=Form1->Image1.Picture.Graphic;
RvProject1.ExecuteReport('SimplePage');

TRavePage MyPage;
TRaveBitmap MyImg;
не знает таких классов.