Email mit Indy verschicken

[Chrissi91]

Selber Fehler wie sonst.

Ich poste noch mal den Code, wie er jetzt grade ist:

Delphi-Quellcode:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
 i: integer;
 adressen: array[1..1000] of string;
 NewAddress : TIDEMailAddressItem ;
begin
 speedbutton3.Enabled:=False;
 try

    NewAddress := email.Recipients.Add ;
    NewAddress.Address := trim(listbox1.Items[i]);

 (**for i:= 0 to listbox1.Items.count-1 do
  begin
   email.Recipients.Add.Text := trim(listbox1.Items[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;

p.s. anbei mein projekt ... vll liegt es ja auch an was anderem ...