Gracias me solucionaste el problema para grabar en unicode el codigo seria este
Código:
var
fileSource, fileDest, pathtemp, pathsource: WideString;
fileSoruce := pathsource+'hernan.txt';
fileDest := pathtemp+'hernan.txt';
CopyFilew(PWideChar(fileSource), PWideChar(fileDest), False);