Подскажите способ перевода текста в графику.

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var BT:TBitmap;
    i:integer;
begin
 BT:=TBitMap.Create;
 BT.Width:=form1.RichEdit1.Width;
 BT.Height:=form1.RichEdit1.Height;
 for i:=0 to form1.RichEdit1.Lines.Count - 1 do
 BT.Canvas.TextOut(5,i*abs(form1.RichEdit1.Font.Height),form1.RichEdit1.Lines[i]);
 BT.SaveToFile('d:\screenRE.bmp');
 BT.Free;
end;

[Пепел Феникса]

procedure TForm1.Button1Click(Sender: TObject);
var B:TBitMap;
begin
 B:=TBitMap.Create;
 B.Height:=RichEdit1.Height;
 B.Width:=RichEdit1.Width;
 BitBlt(B.Canvas.Handle,0,0,B.Width,B.Height,GetDC(RichEdit1.Handle),0,0,SrcCopy);
 B.SaveToFile('C:/test.bmp');
 B.Free;
end;

вот код, рисует то что надо...и не важно где компонент(виден/не виден)