function FTPFileExists(str: string): Boolean;
var
sizeofFTPfile: integer;
begin
sizeofFTPfile := idFTP1.Size(str);
if sizeofFTPfile > 0 then
begin
Result := True;
// ShowMessage('FTP的文件存在。');
Exit;
end;
ShowMessage('FTP的文件不存在。');
Result := False;
end;