Impresion Report Builder 9

[gruizc]

Buenas Tardes,

Estoy trabajando con Delphi 7 version Intraweb con Report Builder 9, y estoy ejecutando el siguiente codigo en delphi para imprimir un reporte en report builder:

// INICIO CODIGO

procedure TIWFrm1.IWButton1Click(Sender: TObject);
var
Reporte : string;
v1 : string;
cont : Integer;
begin
randomize;
cont := cont + random(99999999);
v1 := IntToStr(cont);
ppReport1.AllowPrintToFile := True;
ppReport1.ShowPrintDialog := False;
ppReport1.DeviceType := 'PDF';
Reporte := 'C:\Reportes\Reporte' + v1 +'.pdf';
ppReport1.TextFileName := Reporte;
ppReport1.PDFSettings.Author := 'X';
ppReport1.PDFSettings.Title := 'X';
ppReport1.PDFSettings.OpenPDFFile := True;
ppReport1.Print;

end;

// FIN CODIGO

Este codigo ejecuta la impresion de un reporte en formato PDF , pero al imprimirlo por primera vez si me aparece en pantalla, pero cuando lo hago en una segunda ocasion me marca el siguiente error:

raised exception class EAccessViolation
with message Access violation at address 0048F950.
Read of address 00000004


Alguien ha tenido este tipo de errores???

Gracias

Saludos

GRuiz