这样写为什么不支持汉字的截取
edPath是文本框，通过一个按钮选取得到一个目录的路径
edName是通过下面的方法取得目录名称，不带路径的文件夹名称，英文路径可以，带汉字的路径总是死循环，请求帮助。多谢。
s :=trim(edPath.Text);

if (s <> ' ') and (s[length(s)]= '\ ') then
begin
s :=leftstr(s,length(s)-1); //去除 '\ '
while pos( '\ ',s)> 0 do //循环截取路径，最终取得文件夹名称
begin
s:=rightStr(s,length(s)-pos( '\ ',s));
end;
edName.Text:=s;
end;
是不是有更好的字符串截取方法，多谢

[解决办法]
把s声明成WideString