OpenSSL Hatası

[mcuyan]

Selam arkadaşlar
Bir uygulamam var. Bu uygulama FB db min yedeğini alıp ubuntu sunucuma SSL ile bağlanıp ( https://github.com/pult/libssh2_delphi/ )datamı atıyorum. Bir çok cihazda problem yok iken, Bazılarında Aşağıdaki Hatayı alıyorum. Fakat Hata veren cihazlar bazen hata veriyor bazen vermiyor

Araştırmalarımdan hiç bir şey bulamadım. Acaba sunucu ayarlarında mı bi problem var. yoksa DLL'lerde mi yoksa BackUP uygulamam da ki SSL ayarlarında mı, yoksa data upload edilirken Client'in olduğu internet bağlantısında mı problem var, yoksa Delphi kodlarımda mı bilemedim. 

Böyle birşey  daha önce başına gelen var mı?

Data yüklerken Delphi kodlarım aşağıdadır..

   

Var
    SFTP: TSFTPClient;
    FS: TFileStream;
Begin
    SFTP.UserName := 'XxXxX';
    SFTP.Password := 'XxXxXxXxX';
    SFTP.Host := 'xxx.xxxx.xxx.xxx';
   SFTP.Port := 22;
   SFTP.KeepAlive := true;
   SFTP.IPVersion := IPv4;
   SFTP.AuthModes := [amTryAll];
   SFTP.ReadBufferLen := 65536; 
   SFTP.WriteBufferLen := 65536;
   SFTP.Connect;
   FS := TFileStream.Create('xxx.xxx', fmOpenRead or fmShareDenyWrite);
   SFTP.Put(FS, '/xxx/xxx/File.zip', true);
   SFTP.List;

   FS.Free;
   SFTP.Disconnect;
   SFTP.Free;

[mcuyan]

Sanırım hatayı buldum.
SFTP nesnesini Free edemediğinden bu hatayı veriyormuş.