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.