在Delphi中获取文件名,不获取路径