procedure TForm1.Button1Click(Sender: TObject); begin Rvproject1.ProjectFile := extractfilepath(application.ExeName)+'Project1.rav'; RvProject1.Open; RvProject1.SelectReport('Report1',False); RvProject1.SetParam('var1',Edit1.Text); RvProject1.Execute; RvProject1.Close; end;