Problemas con el copyfile

[richy08]

Buenos dias compañeros alguien me podria orientar sobre este error lo que quieor hacer es copiar algunos archivos desde un servidor hacia la maquina cliente los nombres de los archivos a copiar los obtengo mediante un query este es el codigo que uso

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;
 
  Dir1:='C:\Especificaciones';
   if not DirectoryExists(Dir1) then
    if not CreateDir(Dir1) then
     raise Exception.Create('Cannot create c:\'+Dir1);
  While ido
  begin
   if NOT CopyFile(pchar ('\\Sitiserver\Users\Especificaiones\'+Qry_pdf.FieldByName('sitemid').value+'.pdf'), pchar('C:\Especificaciones\'+Qry_pdf.FieldByName('sitemid').value+'.pdf'),FALSE) then
     MessageDlg('No he podido copiar el fichero', mtWarning, [mbOk], 0); }
  
   i:=i+1;
   Qry_pdf.Next;
  end;

pero me marca el siguiente error al compilar [Error] Prg_Espe.pas(68): Invalid typecast y es por que el nombre del archivo se loestoy pasando con el campo que tiene el query alguna sugerencia mil gracias

[MaMu]

Código Delphi [-]
  Qry_pdf.Close;
  Qry_pdf.ParamByName('nquoteid').Value:=Form2.dbgrid1.Fields[0].Value;
  Qry_pdf.Open;

  Qry_pdf.First;
 
  Dir1:='C:\Especificaciones';
   if not DirectoryExists(Dir1) then
    if not CreateDir(Dir1) then
     raise Exception.Create('Cannot create c:\'+Dir1);
  While NOT(Qry_pdf.Eof) do
  begin
   archivo:=Qry_pdf.FieldByName('sitemid').AsString;
   if FileExists(archivo)
   then begin
    CopyFile(pchar ('\\Sitiserver\Users\Especificaiones\'+archivo+'.pdf'), pchar('C:\Especificaciones\'+archivo+'.pdf'),FALSE);
   end
   else begin
     MessageDlg('No he podido copiar el fichero', mtWarning, [mbOk], 0); }
   end;
   Qry_pdf.Next;
  end;