Ein TDBRichedit zu einem TfrxRichview zuweisen mit Formatierung

[DaCoda]

Wie kann ich einem TfrxRichView den kompletten inhalt eines TDBRichEdit zuweisen mit Formatierung ?

So habe ich es versucht, aber die Formatierung fehlt (?)

Code:

procedure TfrmMain.btnPrintRecipeClick(Sender: TObject);
var
  PictureView: TfrxPictureView;
  RichView: TfrxRichView;
  MemoView: TfrxMemoView;
begin
  if dmMain.tblRezepte.RecordCount > 0 then begin
    try
      PictureView := dmMain.frxReport.FindObject('Picture') as TfrxPictureView;
      PictureView.Picture.bitmap.FreeImage;
      PictureView.Picture.assign(dbiBild.Picture);

      RichView := dmMain.frxReport.FindObject('RichText') as TfrxRichView;
      RichView.Clear;
      RichView.RichEdit.Text := dbreRezept.Text;

      MemoView := dmMain.frxReport.FindObject('Memo') as TfrxMemoView;
      MemoView.Clear;
      MemoView.Text := dbreRezept.Text;

      dmMain.frxReport.PrepareReport(True);
      dmMain.frxReport.ShowPreparedReport;
    except
      // TODO
    end;
  end;
end;

[DaCoda]

Hat sich glaube ich erledigt.
Ich mache das nun so:

Code:

procedure TfrmMain.btnPrintRecipeClick(Sender: TObject);
var
  PictureView: TfrxPictureView;
  RichView: TfrxRichView;
  MemoView: TfrxMemoView;
begin
  if dmMain.tblRezepte.RecordCount > 0 then begin
    try
      dmMain.qryRezepte.Sql.Clear;
      dmMain.qryRezepte.SQL.Add('SELECT * FROM items WHERE ID=' + dmMain.tblRezepteID.AsString);
      dmMain.qryRezepte.Open;

      dmMain.frxReport.PrepareReport(True);
      dmMain.frxReport.ShowPreparedReport;
    finally
      dmMain.qryRezepte.Close;
    end;
  end;
end;