Email mit Indy verschicken

[Chrissi91]

Was mache ich falsch? Bei Breakponits, Fehler eingrenzen, logisch mitdenken müsste es eigentlich klappen. Ich denke mal, es liegt an dem Befehl

email.Recipients.Add.Text := adressen[i]; bzw.

email.Recipients.Add.Text := trim(adressen[i]); Ich bekomme immer den Fehler: Project1.exe raised exception class EldSMTPReplyError with message ''. Process stopped. Use run or step to continue.

Delphi-Quellcode:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
 i,a: integer;
 adressen: array[1..1000] of string;
begin
 speedbutton3.Enabled:=False;
 try
 a:=0;
 for i:= 0 to listbox1.Items.count-1 do
  begin
   a:=a+1;
   adressen[a] := listbox1.Items[i];
   //memo1.lines.add(adressen[a]);
  end;
 for i:= 1 to a do
  begin
   email.Recipients.Add.Text := adressen[i]; //auch wenn ich es so mache, klappt es nicht: email.Recipients.Add.Text := trim(adressen[i]);
  end;
 with email do
  begin
   Clear;
   From.Text := Trim(edit3.Text);
   Subject := Trim(edit2.Text);
   Body.Assign(memo1.Lines);
  end;
 with idsmtp do
  begin
   Connect;
    try
     Send(email);
    finally
   Disconnect;
  end;
 end;
 finally
  speedbutton3.Enabled:=True;
 end;
end;