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