[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