这样写为什么不支持汉字的截取

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;
是不是有更好的字符串截取方法，多谢