Function RenameFile(NombreAnt,NombreNuevo:unicodestring):Boolean; Begin RenameFile:=MoveFileW(PWideChar(NombreAnt),PWideChar(NombreNuevo)); End