Foros Club Delphi - Problemas con el copyfile

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

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;