iMap mails mit Strato

[MartinK]

Hallo
ich möchte einen schlanken mail client in eines meiner programme integrieren.
Dieser soll später mal:
- den Text eingegangener mails downloaden
- bereits gedownloadete mails in den "Deleted" Ordner verschieben

Leider scheitere ich aber bereits mit ganz einfachen Routinen wie zB dieser hier zum
Zählen der mails in der Inbox (in der Zeile mit dem .Connect)

Delphi-Quellcode:

function GetGmailMessageCount(const UserName, Password: string): Integer;
var
  IMAPClient: TIdIMAP4;
  OpenSSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  Result := 0;
  IMAPClient := TIdIMAP4.Create(nil);
  try
    OpenSSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    try
      OpenSSLHandler.SSLOptions.Method := sslvSSLv3;
      IMAPClient.IOHandler := OpenSSLHandler;
      IMAPClient.Host := 'imap.strato.de';
      IMAPClient.Port := 993;
      IMAPClient.UseTLS := utUseImplicitTLS;
      IMAPClient.Username := UserName;
      IMAPClient.Password := Password;
      IMAPClient.Connect;
      try
        if IMAPClient.SelectMailBox('INBOX') then
          Result := IMAPClient.MailBox.TotalMsgs;
      finally
        IMAPClient.Disconnect;
      end;
    finally
      OpenSSLHandler.Free;
    end;
  finally
    IMAPClient.Free;
  end;
end;

-> eIdOSSLUnderlying CryptoError, Fehler beim verbinden mit SSL
(SSL dlls sind im ProgrammOrdner vorhanden)

was mache ich falsch ?

Danke und lG Martin