IDMessage: Body wird nicht übertragen

[webeldi]

Ich benutze die Kommponente IdMessage. Hier mal den Auszug aus der Prozedur:

Delphi-Quellcode:

procedure sendNewsLetter(an:String; att1:Tstrings; Nachricht:TMemo;
vonMail,Betreff:String);

var IdMsgSend:TidMessage; SMTP:TidSmtp; i:integer; s:string;
begin
  IdMsgSend:=TidMessage.Create(nil);
  SMTP:=TidSmtp.Create(nil);
  IdMsgSend.Clear;
    // Plain Text
     with TIdText.Create(IdMsgSend.MessageParts, nil) do
     begin
       ContentType := 'text/plain';
       Body := Nachricht.Lines;
     end;

woran kann das liegen, das der Body nicht übertragen wird, wenn ich die Email versendet habe?

[webeldi]

Ich nimm alles zurück, hab den Fehler zwar nicht gefunden, aber ich hab diese Funktion

Delphi-Quellcode:

with TIdText.Create(IdMsgSend.MessageParts, nil) do
     begin
       ContentType := 'text/plain';
       Body := Nachricht.Lines;
       Body.SaveToFile('Data.txt');
     end;

Einfach weggelassen und den Body "normal" eingefügt.