Imprimir de forma secuencial archivos pdf en delphi
 

buenos dias compañeros les comento lo que uqiero hacer despues de copiar los archivos de un servidor a una maquina lo que quiero realiar es que cada uno de los archivos se inpriman automaticamente utilizo el siguiente codigo

Código Delphi [-]
Qry_pdf.Close;
  Qry_pdf.ParamByName('nquoteid').Value:=Form2.dbgrid1.Fields[0].Value;
  Qry_pdf.Open;
  i:=0;
  seleccion:=0;
  Seleccion:=Qry_pdf.RecordCount;
  Qry_pdf.First;
  Dir3:='C:\Especificaciones';
   if not DirectoryExists(Dir3) then
    if not CreateDir(Dir3) then
     raise Exception.Create('Cannot create c:\'+Dir3);

  Dir1:='C:\Especificaciones\'+inttostr(Form2.dbgrid1.Fields[0].Value);

   if not DirectoryExists(Dir1) then
    if not CreateDir(Dir1) then
     raise Exception.Create('Cannot create c:\'+Dir1);
 
  While ido
  begin
   Dir:='';
   Dir:='\\Sitiserver\Users\Especificaciones\'+Qry_pdf.FieldByName('sitemid').value+'.pdf';
   Dir2:='';
   Dir2:='C:\Especificaciones\'+inttostr(Form2.dbgrid1.Fields[0].Value)+'\'+Qry_pdf.FieldByName('sitemid').value+'.pdf';
   if NOT CopyFile(pchar(Dir), pchar(Dir2),FALSE) then
     MessageDlg('The File '+Qry_pdf.FieldByName('sitemid').value+'.pdf no Was Copied', mtWarning, [mbOk], 0)
   else
   begin
      AcroPDF1.LoadFile(Dir2);
      AcroPDF1.printAll;
   end;
   i:=i+1;
   Qry_pdf.Next;
  end;

pero al parecer se queda travado y no me inprime nada pero tampoco me sale un error cosa que no sucede cuando lo hago fuera de un ciclo alguna idea de que pueda ser mil gracias.

creo que encontre la solucion pero como puedo crear objetos de la clase tacropdf en tiempo de ejcucion gracias.:confused: