DBRichEdit og Rave Report

Er der nogen der har erfaring med dette? Jeg har set på deres hjemmeside omkring dette og har fundet en løsning for RichEdit:

uses
  RPMemo;

procedure TForm1.RvSystem1Print(Sender: TObject);
var  MemoBuf: TMemoBuf;
begin
  With Sender as TBaseReport do begin
    MemoBuf := TMemoBuf.Create;
    MemoBuf.BaseReport := Sender as TBaseReport;
    try
      MemoBuf.RichEdit := RichEdit1;
      MemoBuf.PrintStart := 1.0;
      MemoBuf.PrintEnd := 7.0;
      While not MemoBuf.Empty do begin
        MemoBuf.PrintHeight(SectionBottom - LineTop,false);
        If not MemoBuf.Empty then begin
          NewPage;
        end; { if }
      end; { while }
    finally
      MemoBuf.Free;
    end; { tryf }
  end; { with }
end;

Men nu er det en DBRichEdit jeg har. Det er ikke nok at ændre:

      MemoBuf.RichEdit := RichEdit1;
med

      MemoBuf.RichEdit := DBRichEdit1;

Får en fejl da MemoBuf forventer en RichEdit.

Men så faldt jeg over denne fra samme hjemmeside:

uses
  RPMemo;

procedure TForm1.ReportSystem1Print(Sender: TObject);

var
  MemoBuf: TMemoBuf;
  Stream: TMemoryStream;

begin
  with Sender as TBaseReport do begin
    MemoBuf := TMemoBuf.Create;
    Stream := TMemoryStream.Create;
    try
      TBlobField(Table1.FieldByName('Notes')).SaveToStream(Stream);
      Stream.Position := 0;
      MemoBuf.LoadFromStream(Stream, Stream.Size);
      MemoBuf.PrintStart := 1.0; // Set memo left margin position
      MemoBuf.PrintEnd := 4.0; // Set memo right margin position
      PrintMemo(MemoBuf, 0, false);
    finally
      MemoBuf.Free;
      Stream.Free;
    end; { tryf }
  end; { with }
end;

Men når jeg bruger denne bliver det hele vist. Dvs koderne og tekst og ikke som formateret tekst.

Er der nogen der kan give et bud på hvad årsagen til dette er?