IdPOP3 + SSL: Immer "Connection closed gracefully"

[lastwulf]

Hi,

In meinem Projekt benutze ich IdPOP3 mit IdSSLIOHandlerSocketOpenSSL.
Nur aus irgendeinem Grund bricht die Verbindung sofort, egal bei welchem Server, mit "Connection closed gracefully" ab (Auch wenn Firewall/AV deaktiviert).
Habe die Server von Yahoo, GMail und Freenet getestet. Überall das selbe.
Die Meldung "Connection closed gracefully" wird instantan nach idpop31.Connect() ausgegeben.
Ich habe mal per Wireshark mitgeschnüffelt und es findet überhaupt keine Kommunikation statt?!

Hier mein Code:
(Ich benutze Borland Delphi 7 mit Indy 10)

Delphi-Quellcode:

    idssliohandlersocketopenssl1 := Tidssliohandlersocketopenssl.Create(nil);
    idssliohandlersocketopenssl1.SSLOptions.Mode := sslmUnassigned;
    idssliohandlersocketopenssl1.SSLOptions.Method := sslvSSLv3; // Kein Erfolg mit sslvSSLv2
    idpop31 := tidpop3.Create(nil);
    idpop31.IOHandler := idssliohandlersocketopenssl1;
    idpop31.UseTLS := utUseExplicitTLS; // Kein Erfolg mit utUseImplicitTLS etc.
    idpop31.Host := server; //Im Vorfeld deklariert, auf jeden Fall richtig
    idssliohandlersocketopenssl1.Host := server;
    idpop31.Username := user; //Im Vorfeld deklariert, auf jeden Fall richtig
    idpop31.Password := password; //Im Vorfeld deklariert, auf jeden Fall richtig
    idpop31.Port := 995;
    idpop31.ConnectTimeout := 5000;
    idpop31.ReadTimeout := 5000;

    try
        idpop31.Connect(); // Hierbei Exception EidConnectionClosedGracefully
        memo1.Lines.Add(IntToStr(idpop31.CheckMessages)+' E-Mails gefunden.');
        idpop31.Disconnect();
    except
       on E : Exception do
       begin
        Memo1.Lines.Add('ERROR: '+E.Message+' // '+E.ClassName);
       end;

     end; 

    end;

Der Fehler ist mir rätselhaft, zumal mein Programm ja nicht einmal mit dem Server Kontakt aufnimmt

Vielleicht weiß hier einer besser Bescheid