要用gif 控件辅助!
procedure TForm1.Button1Click(Sender: TObject);
var
b:TBitmap;
begin
b:=TBitmap.Create ;
b.Width:=72;
b.height:=14;
b.Canvas.Font.Name:='宋体';
b.Canvas.Font.Size:=10;
b.Canvas.Font.Color:=$0000ff;
b.Canvas.TextOut(2,1,'这是字符串');
b.SaveToFile('d:/temp.bmp');
b.SaveToFile('d:/temp.gif'); //无效
b.free;
end;