E-Mail versenden: mit Attachment klappt´s nicht

Ich habe Delphi6 Personal mit Indy Components 10; die Komponenten Id TIdMessage und TIdSMTP sind ins Projekt einbezogen.

Das Senden mit IdSMTP1.QuickSend(… läuft problemlos.

Nun möchte ich auch Attachments versenden:

[CODE]
IdMessage1.From.Address := ‚***‘;
IdMessage1.Recipients.EMailAddresses := ‚***‘;

IdMessage1.Subject := ‚Mail-Test‘;
IdMessage1.Body.Text := ‚Dies ist der Body-Text‘;
if FileExists(‚anhang.txt‘) = true then
TIdAttachment.Create(IdMessage1.MessageParts,‚anhang.txt‘); //