用delphiXE2IDFTP写的 多线程 功能支持强制或对比 可以排除文件 注释很多 初学者