Delphi中,如何用TPath优雅处理超长文件名问题?