Email per AUTH SMTP versenden

[webby]

Ich hab jetzt einen solchen Code im meinem Proggy stehen:

Code:

procedure TForm1.Button2Click(Sender: TObject);
var Email: TIdMessage;
    i: integer;
begin
  Gauge1.MaxValue := ListBox1.Items.Count;
  Gauge1.Progress := 0;
  Gauge1.MaxValue := ListBox1.Items.Count;
  ListBox2.Clear;

  ListBox2.Items.Add('Setze alle Login-Daten...');
  smtp.Host := Edit1.Text;
  smtp.UserId := Edit2.Text;
  smtp.Password := Edit3.Text;

  ListBox2.Items.Add('Kontaktiere zum Mailserver...');
  smtp.Connect;

  Email := TIdMessage.Create(nil);

  ListBox2.Items.Add('Starte zum Emailsenden...');

  for i := 0 to ListBox1.Items.Count-1 do begin
    Email.Recipients.Clear;
    Email.Recipients.Add.Address := ListBox1.Items.Strings[i];
    Email.Subject := Edit6.Text;
    Email.Body.Text := Memo2.Lines.Text;

    smtp.Send(Email);

    ListBox2.Items.Add('Newsletter wurde erfolgreich an "'+ListBox1.Items.Strings[i]+'" versandt.');
    Gauge1.Progress := i+1;
  end;
end;

(AuthenticationType ist im ObjectManager schon gesetzt.)

Jetzt bekomm ich immer folgenden Error:

Zitat:

Socket Error # 11001

Was mach ich jetzt da falsch?