Problema al generar PDF con report builder
 

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

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.

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

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 ;)

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;