Function RemoveDir(nombre:unicodestring):Boolean; Begin RemoveDir:=RemoveDirectoryW(PWidechar(nombre)) End;