Richedit mit formatierten text füllen und drucken

[BastardOp]

Hallo

ich hab ein rich edit und möchte die auf Buttoclick mit formatierten text füllen. Also das gewissen text stellen farbig sind oder fet oder wie auch immer.
Diese formatierten text möchte ich nun auch noch drucken (das drucken an sich funzt schon) nur weiß ich nicht wie ich ein richedit mit formatiertem text füllen und mit diesen Formatierungen auch drucke.

Im mom drucke ich mit folgenen Code

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var
  i: Integer;
begin
IF printdialog1.Execute THEN
  with Printer do
    begin
      BeginDoc;
     WITH Printer.Canvas.Font DO
BEGIN
  Name := Richedit1.Font.Name;
  Size := Richedit1.Font.Size;
  Color :=Richedit1.Font.Color;
END;
      for i := 0 to Memo1.Lines.Count do
Canvas.TextOut(200,200 + (i *Canvas.TextHeight(Richedit1.Lines.Strings[i])),Richedit1.Lines.Strings[i]);

      EndDoc;
    end;
end;

ich hoffe mal ihr könnt mir helfen.

MfG
BastardOp