Indy POP3 Mail abspeichern

[smash]

Hallo,

ich würde gerne eine Mail, welche ich empfange abspeichern.
Aber: Nicht mit dem ganzen Header- Kram, sondern nur das, was ich hier auch bekomme:

Delphi-Quellcode:

for k := 0 to Msg.MessageParts.Count-1 do
        begin
          if Msg.MessageParts.Items[k] is TIdText then
          begin
            Memo1.Clear;
            Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[k]).Body);
          end;
        end;

Genau diesen Inhalt möchte ich auch in einer TXT- Datei haben.
Ich schaffe es aber einfach nicht!

Danke für eure Hilfe!

Liebe Grüße