anchor.diff:    tmpFileName : string;
   begin
     aRoots.Clear;
  -  FTPClient := TIdFTP.Create(nil);
  -  try
  -    FTPClient.Host:= FHost;
  -    FTPClient.Username:= FUsername;
  -    FTPClient.Password:= FPassword;
  +  FTPClient := CreateConnection;
  +  try
       try
         FTPClient.Connect;
       except
  
positive.code:   finally
      tmp.Free;
    end;
  end;
  
  function TFTPFileSystemManager.ExistsFolder (aFTPClient : TIdFTP; const aPath: string) : boolean;
  
negative.code:   StrUtils,
    IdTCPClient, IdFTPCommon, IdReplyRFC, IdReplyFTP, IdExplicitTLSClientServerBase
    {$IFDEF LINUX},FileUtil, IdSSLOpenSSLHeaders{$ENDIF}
    ,mLog, mMathUtility
    ;
  
  var
  