Farbigen Text auf Image kopieren

[thomas2009]

Hallo
ich habe ein kleines Problem mit der Farbe
Wenn ich Memo verwende, dann kommt der Text farbig auf Image
wenn ich aber Richedit nehme, dann kommt der Text SW !

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  j, i: Integer;
begin
  Image1.Canvas.Font := Richedit1.Font; // nehmt leider die Farbe von Richedit nicht
  j := Image1.Canvas.TextHeight('Test');
  for i := 0 to Richedit1.Lines.Count - 1 do
    Image1.Canvas.TextOut(0, i * j, Richedit1.Lines[i]);
end;

Woran kann es liegen ?