从目录中获取子目录

我尝试获取目录的子目录，但我有一个有效的脚本，但我只希望该子目录名，而不是以前的目录名。

示例：
如果我输入：“ \ Program Files（x86）\ Embarcadero \ RAD Studio \ 12.0”，
那么现在这是我的输出：
“ \ Program Files（x86）\ Embarcadero \ RAD Studio \ 12.0 \ bin”
“ \ Program Files（ x86）\ Embarcadero \ RAD Studio \ 12.0 \ bin64“
” \程序文件（x86）\ Embarcadero \ RAD Studio \ 12.0 \ binosx32“
...

但是我希望我的输出是：
“ bin”
“ bin64”
“ binosx32”
...

这是我现在使用的脚本：

procedure GetSubDirectories(const directory : string; list : TStrings) ;
 var
   sr : TSearchRec;
 begin
   try
     if FindFirst(IncludeTrailingPathDelimiter(directory) + '*.*', faDirectory, sr) < 0 then
       Exit
     else
     repeat
       if ((sr.Attr and faDirectory <> 0) AND (sr.Name <> '.') AND (sr.Name <> '..')) then
         List.Add(IncludeTrailingPathDelimiter(directory) + sr.Name) ;
     until FindNext(sr) <> 0;
   finally
     SysUtils.FindClose(sr) ;
   end;
 end;

如何使该脚本像我的示例一样？