TidMessage. Zeilenumbruch mal ok dann wieder nicht

[Jackie1983]

Servus,

versende so die Mail

Delphi-Quellcode:

  SMTP := TIdSMTP.Create(nil);
  MailMessage:= TIdMessage.Create(nil);
  SMTP.Host := 'xxxx';
  SMTP.Port := 25;
  SMTP.AuthenticationType := atLogin;
  SMTP.Username := 'lalelu';
  SMTP.Password := 'sososo';

  MailMessage.AddHeader(MailMessage.GenerateHeader.Text);
  MailMessage.From.Address := '[e-mail]';

  MailMessage.Recipients.EMailAddresses := email;

  MailMessage.Subject := subject;

  MailMessage.Body.Text := StringReplace(bodytext,'
',#13#10,[rfreplaceall,rfIgnoreCase]);

  try
    SMTP.Connect(5000);
    SMTP.Send(MailMessage);
  except on E:Exception do
    //...
  end;

Das ist der Text
bodytext=Irgend ein Text mit Zeilenumbruch
Das ist die zweitezeile
das ist die dritte Zeile
nochmal text

So kommt es an

Zitat:

Irgend ein Text mit Zeilenumbruch
Das ist die zweitezeile
das ist die dritte Zeile nochmal text

Und so sollte es ankommen

Zitat:

Irgend ein Text mit Zeilenumbruch
Das ist die zweitezeile
das ist die dritte Zeile
nochmal text

Habe auch schon mal MailMessage.Body in einer Textdatei abgespeichert, da ist alles ok.
Habe keine Ahnung warum die letzte Zeile nicht funktioniert....

Mfg