Indy SMTP 1&1 - authentication credentials invalid

[dataspider]

Hallo

Ich habe Probleme beim Einbinden von 1&1 Mailaccounts in mein Programm.
Bisher musste ich nur Lotus Notes (OLE) und Strato (Indy) lösen.
Das funktioniert.
Ich habe den wesentlichen Teil mal in ein Testprojekt gepackt:

Delphi-Quellcode:

function TfrmMain.Senden1und1: Boolean;
Const
  cHost = 'smtp.1und1.de';
  cPort = 587;
Var
  LSmtp: TIdSMTP;
  LMsg: TIdMessage;
  LSsl: TIdSSLIOHandlerSocketOpenSSL;
begin
  Result := False;
  LSmtp := TIdSMTP.Create(nil);
  LSsl := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  LMsg := TIdMessage.Create(nil);
  try

    LMsg.Recipients.EMailAddresses := SMailDataspider;
    LMsg.From.Address := cMail1und1;
    LMsg.Subject := 'Test 1 und 1 Subject';
    LMsg.Body.Text := 'Test 1 und 1 Bodytext';

    LSmtp.Host := cHost;
    LSmtp.Port := cPort;
    LSmtp.Username := cMail1und1;
    LSmtp.Password := cPassword1und1;

    LSsl.Host := LSmtp.Host;
    LSsl.Port := LSmtp.Port;
    LSsl.SSLOptions.Method := sslvTLSv1;

    LSmtp.IOHandler := LSsl;
    //LSmtp.UseTLS := utUseRequireTLS;
    LSmtp.UseTLS := utUseExplicitTLS;

    LSmtp.Connect;  // Wird ausgeführt
    LSmtp.Send(LMsg);  // Fehler authentication credentials invalid
    LSmtp.Disconnect;

  finally
    LMsg.Free;
    LSsl.Free;
    LSmtp.Free;
  end;
end;

Hat jemand eine Idee, was der Fehler sein könnte?
Fehler kommt beim Senden (siehe Quelltextkommentare)...

Frank