Function SetDirSeparators(Nombre:UnicodeString):UnicodeString; Var i:longword; aux:UnicodeString; Begin aux:=Nombre; for i:=1 to Length(aux) do if aux[i] in ['/','\'] then aux[i]:=DirectorySeparator; SetDirSeparators:=aux End;