Problema al generar PDF con report builder

[isaiaseml]

hola que tal tengo un problema al tratar de generar un PDF con report builder pues resulta que al tratar de generarlo me manda un error que dice: list index out of bonus (-1).. le doy aceptar y me genera el reporte...
el codigo es el sig

with verde do
begin
ShowPrintDialog := true;
PrinterSetup.Copies := 1;
AllowPrintToArchive := true;
DeviceType := 'PDF';
TextFileName := ExtractFilePath(ParamStr(0)) +'semaforo.pdf';
Print;

end;
uso el delphi xe2

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo:



Gracias

Y en cuanto al error que dices, creo que no lo has escrito bien, usa "copiar y pegar", gracias.

[isaiaseml]

Código Delphi [-]
 procedure TFrmSemaforo.SpeedButton2Click(Sender: TObject);
begin
 if imprimir<>'Y' then
   SHOWMESSAGE('ERROR: NO HAY INFORMACIÓN A IMPRIMIR')
ELSE
Begin
   if todas.Checked then
   begin
     with  verde do
     begin
        ShowPrintDialog := true;
        PrinterSetup.Copies := 1;
        AllowPrintToArchive := true;
        DeviceType := 'PDF';
         Reset;
         TextFileName := ExtractFilePath(ParamStr(0)) +'semaforo.pdf';
      Print;

     end;


   end; 
end;
end;

este es el codigo, anexo en una imagen el error q me tira cuando trato de generar el PDF. La otra imagen es ya el pdf generado

[isaiaseml]

la ventana q me sale dice:


list index out of bonus(-1)

[Casimiro Notevi]

Empezado por isaiaseml

la ventana q me sale dice:
list index out of bonus(-1)

Para mayor seguridad y puedas encontrar mejor ayuda, es conveniente que hagas lo que he comentado antes: "copiar y pegar".
El mensaje no dice eso

[isaiaseml]

descuida ya solucioné el problema, y no puedo copiar y pegar el mensaje q me aparece en esa ventana de error...
bueno comento q lo unico q hice fue poner cambiar la propiedad de

Código Delphi [-]
  ShowPrintDialog := false;