IDPop3 Port 995 SSL Bibliothek fehlt

[stalkingwolf]

Moin,

ich muss bei diversen Kunden per Email Dateien herunterladen. Bei jedem Kunden eine andere Baustelle.
Nun habe ich einen der SSL/TLS voraussetzt.
D.h bei Port 110 erhalte ich die Meldung Plaintext authentication disallowed on non-secure (SSL/TLS) connections.
Bei Port 995 erhalte ich die Meldung SSL.-Bibliothek konnte nicht geladen werden

Was für eine SSL Bibliothek will die Indy Komponente hier?

Mein Aufruf mit Port 995

Code:

    idPOP.Host      := edFTPHost.text;
    idPOP.Port      := strtoint(edFTPPort.text);
    idPOP.Username  := edFTPUsername.text;
    idPOP.Password  := edFTPKennwort.text;

    if edFTPPort.text = '995' then begin
        idPOP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
        idPOP.AuthType  := patUserPass;
        idPOP.UseTLS    := utUseImplicitTLS;
    end else begin
        idPOP.IOHandler := nil;
        idPOP.AuthType  := patUserPass;
        idPOP.UseTLS    := utNoTLSSupport
    end;

Will ich das per IMAP herunterladen
bekomme ich bei Port 143 die Meldung [PRIVACYREQUIRED] Plaintext authentication disallowed on non-secure (SSL/TLS) connections.
BAD [ALERT] Plaintext authentication not allowed without SSL/TLS, but your client did it anyway. If anyone was listening, the password was exposed.
Bei Port 143 mit TLS die "Fehler" Meldung Die Verbindung wurde erfolgreich geschlossen
Bei Port 993 wieder die Meldung SSL.-Bibliothek konnte nicht geladen werden.

Code:

    idIMAP.Host      := edFTPHost.text;
    idIMAP.Port      := strtoint(edFTPPort.text);
    idIMAP.Username  := edFTPUsername.text;
    idIMAP.Password  := edFTPKennwort.text;

    if edFTPPort.text = '993' then begin
        IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv3;
        idIMAP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
        idIMAP.AuthType  := iatUserPass;
        idIMAP.UseTLS    := utUseImplicitTLS;
    end else begin
        idIMAP.AuthType  := iatUserPass;

        if cbusetlsIMAP.checked then begin

            IdSSLIOHandlerSocketOpenSSL1.MaxLineAction          := maException;
            IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method      := sslvTLSv1;
            IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode        := sslmUnassigned;
            IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyMode  := [];
            IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyDepth := 0;
            idIMAP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;

            idIMAP.UseTLS    := utUseExplicitTLS; // utUseExplicitTLS;

        end else begin
            idIMAP.UseTLS    := utNoTLSSupport;
            idIMAP.IOHandler := nil;
        end;
    end;