x:=ExtractFileName(str); //取文件名+擴展名，不包含文件路徑
y:=ExtractFileExt(str); //取文件的擴展名
Delphi 獲取文件夾路徑最后一級文件夾目錄名稱:
var
dir: string;
begin
dir := 'D:\delphi\lib';
dir := ExtractFileName(dir);
ShowMessage(dir); //結果 lib
end;