Function DeleteFile(Nombre:UnicodeString):Boolean; Begin DeleteFile:=DeleteFileW(PWidechar(Nombre)); End;