如何将RichEdit的内容连同Color的颜色一起输出到Image上来啊(100分)

求救！！！！！！！！！！！！！！！！！！！

大家出出主意啦

如果Richedit1不带滚动条,用如下方法
否则先放大尺寸
var
image: TImage;
begin
image := TImage.create;
Image.Width := RichEdit1.Width;
Image.Height := RichEdit1.Height;
Image.Canvas.lock;
RichEdit1.PaintTo(Image.Canvas,0,0);
Image.SaveToFile('c:/test.bmp');
Image.free;
end;