1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

function FtpAccess.ConnectToSFTPServer(User, Passwd, Host, Port: String): boolean;
begin
  Result:= False ;
  SSL:= TIdSSLIOHandlerSocketOpenSSL.Create(FTP);
  SSL.ReadTimeout := 60000;
  SSL.SSLOptions.Method := sslvSSLv23;
  SSL.SSLOptions.Mode := sslmClient;
  FTP:= TIdFTP.Create(nil);
  FTP.AutoLogin:= True;
  FTP.IOHandler := SSL ;
  FTP.AutoLogin := True;
  FTP.Passive := True;
  FTP.UseTLS := utUseExplicitTLS;
  FTP.AUTHCmd := tAuthSSL;
  FTP.DataPortProtection:= ftpdpsPrivate ;
  FTP.Username:= USER;
  FTP.Password:= Passwd;
  FTP.Host:= HOST;
  FTP.Port:= StrToInt(Port) ;
  FTP.Disconnect ;
  Try
    FTP.Connect ;
    Result:= True ;
  Except on E:Exception do
    Begin
      MyDataModule.AddToFtpLog('ERROR Func ConnectToSFTPServer', E.Message);
      MyDataModule.Log('ERROR Func ConnectToSFTPServer', E.Message);
    end ;
  End ;
end;