delphi 获取文件目录最后一级名称

function GetLastName(const fn: string): string;
var
  i:Integer;
  s:string;
begin
  s := trim(fn);
  if s[Length(s)]='\' then
    s := Copy(s,1,Length(s)-1);

  while Pos('\',s)>0 do
  begin
    i := Pos('\',s);
    s := Copy(s,i+1,Length(s)-i);
  end;
  Result := s;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  FilePath: string;
  Directory: string;
begin
  FilePath := 'C:\Example\Folder\Subfolder';
  Directory := GetLastName(FilePath);
  ShowMessage(Directory); // 输出 "Subfolder"
end;