Authentication rejected/ Autehnticaion failed

[Metallicwar]

zu GHorn:
gibt noch ein paar sachen die beim Compilieren angemeckert werden.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  idMessage : TIdMessage;
  i: Integer;
begin
  cbSystem.Items.Add('.Punkt 1');
  cbSystem.Items.Add('.Punkt 2');
  cbSystem.Items.Add('.Punkt 3');
  btnEinloggen.Enabled := False;

  idMessage := TIdMessage.Create();
  try
    idMessage.IsEncoded := True;
    idMessage.From.Text := '[e-mail]';
    idMessage.Sender.Text := '[e-mail]';
    idMessage.Recipients.Clear;

    for i := 0 to High(Main.aMy_Email); // Array mit Empfängern --> Was mus ich in dieses MAin.aMy_Email reinschreiben?
      begin
        with idMessage.Recipients.Add do
          begin
            Name := PChar('');
            Address := PChar(Main.aMy_Email[i]); // --> auch hier, was muss ich reinschreiben?
          end;
      end;
      idMessage.ContentType := 'multipart/mixed';
      // wichtig !!!
      idMessage.Encoding := meMIME;  
      idMessage.AttachmentEncoding := 'MIME';
      idMessage.CCList.Clear;
      // usw. ...
  finally
    idMessage.free;
  end;
end;


procedure TForm1.btnEinloggenClick(Sender: TObject);
var
  slText: TStrings;
begin
  IdSMTP1.Host := 'smtpmail.t-online.de';
  IdSMTP1.Username := '[e-mail]';
  IdSMTP1.Password := 'Mailpasswort';

  IdMessage1.Sender.Name := '[e-mail]';
  IdMessage1.Sender.Address := '[e-mail]';
  IdMessage1.From.Text := '[e-mail]';
  IdMessage1.Sender.Text := '[e-mail]';

  IdMessage1.Recipients.EMailAddresses := '[e-mail]';

  IdMessage1.Subject := 'Hallo Ich';

  slText := TSTringList.Create;
  slText.Add('Hier werden die Daten später stehen');

  IdMessage1.Body := slText;

  IdSMTP1.Connect;
  try
    IdSMTP1.Send(IdMessage1);
  finally
    IdSMTP1.Disconnect();
  end;
  slText.Free;
end;

zu Luckie:
Wo konnte man das nochmal einstellen? (: (: (POP statt SMTP) oder meinst du direkt mit ner POP3 Komponente?