[INDY] TIdSMTP und Anhänge

[ByTheTime]

Hallo,
ich kann mit meiner Mail-Unit mittlerweile ziemlich viel, allerdings noch keine Anhänge verschicken. Meine Recherche sah bis jetzt so aus:

Delphi-Quellcode:

with IdMessage do
      begin
        ContentType := 'multipart/*';  // !
        From.Address := ASender;
        for i := 0 to ARecipients.Count - 1 do
          Recipients.Add.Address := ARecipients.Strings[i];
        for i := 0 to AAttachment.Count - 1 do//!
          TIdAttachmentFile.Create(IdMessage.MessageParts,  // !
            AAttachment.Strings[i]);  // !
        IdMessage.MessageParts.Add();  // !
        Subject := ASubject;
        Body := ABody;
      end;

Allerdings geht das nicht. Mein Test Programm gibt einfach keine Rückmeldung. Was habe ich den hier falsch gemacht???

Gruß,
Lukas