Code:

procedure TForm1.Button2Click(Sender: TObject);

var Bmp : TBitmap;

begin

Bmp := TBitmap.Create;

bmp.Width := 300;

bmp.Height := 300;

PrintToCanvas(bmp.Canvas,2,5,RichEdit1,300,300);

BitBlt(Image1.Picture.Bitmap.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height,

      bmp.Canvas.Handle, 0, 0, srcAND);

Image1.Repaint;

bmp.Free;

end;