x:=ExtractFileName(str); //取文件名+扩展名，不包含文件路径
y:=ExtractFileExt(str); //取文件的扩展名
Delphi 获取文件夹路径最后一级文件夹目录名称:
var
dir: string;
begin
dir := 'D:\delphi\lib';
dir := ExtractFileName(dir);
ShowMessage(dir); //结果 lib
end;