TIdAttachment 'Cannot open File'

[Luckie]

Ich versuche mit den Indy Komponenten (9.0.11) eine Mail mit Anhang zu versenden. leider klappt das mit dem Anhang nicht so recht. ich bekomme immer die Meldung, dass er die Datei, die er versenden soll, nicht öffnen können. Der Pfad stimmt aber definitiv, da sie vorher in einem RichEdit geöffnet wurde.

Die Forensuche war leider erfolglos. Es wurd eimmer auf TIdAttachmentFile aus der Version 10 hingewiesen, diese kann ich aber nicht einsetzen, da ich nicht weiß, was ich dann noch alles ändern müsste.

Hier mal mein bisheriger Code:

Delphi-Quellcode:

procedure TfrmMail.Mail(Receiver, Subject, AttFilename: string; Body: TStrings);
var
  Mail              : TIdMessage;
  Att               : TIdAttachment;
begin
  IdSMTP1.Host := 'luckie-online.de';
  IdSMTP1.Username := 'bar';
  IdSMTP1.Password := 'foo';
  IdSMTP1.Connect;
  Mail := TIdMessage.Create(frmMail);
  try
    Mail.Clear;
    Mail.Recipients.EMailAddresses := Receiver;
    Mail.From.Address := '[e-mail]';
    Mail.Subject := Subject;
    Mail.Body := Body;
    Mail.ReplyTo.EMailAddresses := '[e-mail]';

    Att := TIdAttachment.Create(Mail.MessageParts);
    Att.FileName := AttFilename;

    IdSMTP1.Send(Mail);
  finally
    FreeAndNil(Att);
    IdSMTP1.Disconnect;
  end;
end;

Die Datei direkt im Konstruktor mit anzugeben hat auch nicht geholfen.