DBRichedit formatierter Text in verschickter Email kommt nur als Text an

[blondervolker]

Hallo,

in meinen DBRichedit ist ein formtierter Text.Habe diesen als Mail verchickt.
Aber dieser kommt nur hintereinander an.
Plaintext steht auf False.
Ist eine Access DB. DBRichedit ist als Memofeld eingestellt.Hatte es vorher als RTF. Aber dies ging garnicht.(Hyroglyphen)

Muss gestehen das es ein Versuch ist,seit dem seit gestern Vormittag dran sitzte...

Delphi-Quellcode:

procedure TTMSForm1.AeroBitBtn5Click(Sender: TObject);
begin
  try
    // ProgressBar initialisieren
    ProgressBar1.Position := 0;
    // Table Edititiermodus
    Datamodule1.ADOTable2.Edit;
    // Authentifizierung
    IdSMTP1.AuthType := TIdSMTPAuthenticationType.satDefault;

    // Benutzerdaten für Authentifizierung
    IdSMTP1.Username := edUser.Text;
    IdSMTP1.Password := edPassword.Text;

    // Server-Daten
    IdSMTP1.Host := edHost.Text;
    IdSMTP1.Port := 25;
    ProgressBar1.StepIt;
    IdSMTP1.Connect;
    ProgressBar1.StepIt;
    // Daten versenden
    IdMessage1.From.Address := edFrom.Text;
    IdMessage1.Recipients.EMailAddresses := DBEdit10.Text;
    IdMessage1.Subject := DBComboBox6.Text;
    IdMessage1.Body := DBRichEdit1.Lines;
    IdSMTP1.Send(IdMessage1);
    ProgressBar1.StepIt;
    ProgressBar1.Position := 100;
  finally
    ProgressBar1.Position := 0;
    ShowMessage('Senden abgeschlossen');
  end;
end;