with IdMessage1 do
  begin
  Body.Assign(RicheditEMailtext.Lines);
  Recipients.Add.Address:=Absenderadresse;
  from.Text:=;
  from.Address:=Absenderadresse;
  Subject:=Betreff;
  end;
with IdSMTP1 do
  begin
  Username:=Benutzer;
  Password:=Passwort;
  Host:=SMTPHost;
  Connect;
  for i:= 0 to Pred(LBAnhaenge.Items.Count) do
    TIdAttachmentFile.Create(IdMessage1.MessageParts,LBAnhaenge.Items.Strings[i]);
  Send(IdMessage1);
  Disconnect;
  end;