这样写为什么不支持汉字的截取,该怎么解决

这样写为什么不支持汉字的截取
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