CopyFile não copia arquivo

[User386_Denilson 0]

procedure TfrmData.btCopiar(Sender: TObject);
var arqdata, vpasta : String;
begin
  arqdata:=C:\SFB\data\2017\02\21\YTX4L-BS-16-144115.txt
  vpasta:='Z:\'+IntToStr(n)+'\';
  //n é um numero de 1 a 20
  CopyFile(PChar(arqData[i]),PChar(vpasta[i]),True);
end;

A variável está com o caminho correto do arquivo "arqdata", e o "vpasta" é o local destino, porém não está copiando o arquivo.
Preciso da ajuda de vcs.

[marcio.theis 3]

O CopyFile precisa que se defina o arquivo na origem e destino, testa desta forma e veja se funciona:

 

procedure TfrmData.btCopiar(Sender: TObject);
var arqdata, vpasta : String;
begin
  arqdata:='C:\SFB\data\2017\02\21\YTX4L-BS-16-144115.txt'
  vpasta:='Z:\'+IntToStr(n)+'\' + ExtractFileName(arqdata);
  //n é um numero de 1 a 20
  CopyFile(PChar(arqData),PChar(vpasta),True);
end;