Execute umgehen

[body2009]

Hallo ich habe ein Programm geschrieben was zwei datenbanken vergleicht nach diverence und mir diese daten dann in einer scrollbox wiedergibt.

Beim ersten Durchlauf funktionirt das auch ganz gut, aber beim zweiten Durchlauf springt er bei RvProject1.Execute; in except .

Delphi-Quellcode:

 RvNDRWriter1.Stream.Position := 0 ;
      RvNDRWriter1.FileName := '';
      RvProject1.Engine := nil;
      RvProject1.Close;
      RvProject1.Engine := RvNDRWriter1;   //daten werden gezogen
      RvProject1.Open;
      ShowMessage('wird Geladen');
      try
         RvProject1.Execute;  // beim zweiten durchlauf springt er hier in except
         ShowMessage('ist geladen');
         RvProject1.Engine := nil;
         RvRe_Preview.Render(RvNDRWriter1.Stream); // daten werden in scrollbox
                                                   // angezeigt

      except
         on E: Exception do begin
         ShowMessage('Fehler');
         end;
      end;

end;

was kann ich machen damit er beim zweiten durchlauf das problem umgeht??