Wie kann ich Emailtext (versand über idSmtp)in nächste Zeile

[bundy]

Hallo

Ich habe mir einen Automailer geschrieben mit Indi Comp.

Wenn ich den Text aus einem Memo Feld benutze dann schreibt er das ganze Mail in einer Wurst.
Wie kann ich eine Entertaste posten?

Delphi-Quellcode:

procedure sendmail (von,an,Betreff,Text,Absender:string) ;
begin
  Form1.IdMessage1.Clear;

  // Plain Text
  with TIdText.Create(Form1.IdMessage1.MessageParts, nil) do
  begin
    ContentType := 'text/plain';
    Body.Text := 'Das sieht der Text-Viewer Betrachter';

  end;

  // HTML Part
  with TIdText.Create(Form1.IdMessage1.MessageParts, nil) do
  begin
    ContentType := 'text/html';
    Body.Text := Text;
    Body.Add(#13);
    Body.Add('ssssssssssss');


  end;

  Form1.IdMessage1.ContentType := 'text/html';
  Form1.IdMessage1.From.Address :=von;
  Form1.IdMessage1.From.Name := Absender;
  Form1.IdMessage1.Subject := Betreff;
  Form1.IdMessage1.Recipients.Add.Address := an;

  ShowMessage(IntToStr(Form1.IdMessage1.MessageParts.Count));

  Form1.IdSMTP1.Connect;
  try
    Form1.IdSMTP1.Send(Form1.IdMessage1);
  finally
    Form1.IdSMTP1.Disconnect;
  end;


end;

[Edit=Sakura]Delphi-Tag geschlossen. MfG[/Edit]