IdFTP10 + SSL + Reconnect = Error

[TheGame1492]

Hi

ich benutze Indy 10.5.8.0 und die neusten SSL Files von http://indy.fulgan.com/SSL/



Connecten und einen einfachen Befehl senden tue ich folgendermaßen:

Delphi-Quellcode:

procedure TForm1.Button10Click(Sender: TObject);
var
  ftp2: TIdFTP;
  sslio2: TIdSSLIOHandlerSocketOpenSSL;
begin
  ftp2 := TIdFTP.Create;
  sslIo2 := TIdSSLIOHandlerSocketOpenSSL.Create;

  try
    ftp2.Username := 'test';
    ftp2.Password := '123';
    ftp2.Host := 'IP';
    ftp2.Port := 1234;

    sslIo2.SSLOptions.Method := sslvSSLv23;
    sslIo2.SSLOptions.Mode := sslmBoth;
    sslIo2.Port := 21;
    sslIo2.PassThrough := false;
    ftp2.IOHandler := sslIo;
    ftp2.UseTLS := utUseExplicitTLS;
    ftp2.AUTHCmd := tAuto;
    ftp2.DataPortProtection := ftpdpsClear;
    ftp2.Passive := true;

   
    ftp2.Connect;
    
    ftp2.SendCmd('SITE USERS');
    Memo1.Lines.Assign( ftp2.LastCmdResult.Text );
    
    ftp2.Disconnect;
  finally
    ftp2.Free;
    sslIo2.Free;
  end;
end;

Beim ersten mal geht alles ohne Probleme, aber beim 2ten Versuch kommt die Meldung:

"Exception-Klasse EIdTLSClientCanNotSetWhileConnected mit Meldung 'Dieser Wert kann nicht gesetzt werden, während der Client verbunden ist."


Dabei sollte doch alles geschlossen und freigegeben sein!?!?!
Kann wer da helfen? :?