取文件夹名

procedure Tform1.DirExecute(ROOT_PATH:String);
var
  sr: TSearchRec;
  Item : TListItem;
begin
  SetCurrentDir(ROOT_PATH);
  if FindFirst('*', faDirectory, sr) = 0 then
  begin
    repeat
      if ((sr.Attr and faDirectory) = sr.Attr) and (sr.Name <> '.') and (sr.Name <> '..')
      and (RightStr(sr.Name,1) in ['0'..'9']) then  //最后一位数值在0到9 的文件夹取出 但语法错误 还望指点 
      begin
        if Length(Trim(edQQNumb.Text))=0 then
          edDirName.Text:=sr.Name
        else
          edDirName.Text:=edDirName.Text+';'+sr.Name;
      end;
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;