怎么把文本转化成图形？

Question

Delphi有没有办法把文本转换成图形（图形格式不限）！
请高手指教！

Answer 1

procedure TxtToGif(txt, Filename:string);
var
 temp : Tbitmap;
 GIF: TGIFimage;
begin
 temp:= TBitmap.create;
 try
   temp.Height := 400;
   temp.Width := 400;
   temp.transparent:=True;
   temp.canvas.brush....   temp.canvas.TextOut(10,10,txt)
   ...
   GIF:=TGifimage.create;
   try
     GIF.assign(temp);
     GIF.savetofile(filename);
     finally
     GIF.free;
     end;
     finally
     temp.destroy;
     end
     end;

Answer 2

firetoucher(风焱) 方法可以实现。