procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
LogicFont:TLOGFONT;
begin
str:=Memo1.Lines.Text;
setBKmode(Image1.Canvas.handle,TRANSPARENT);
LogicFont.lfCharSet :=GB2312_CHARSET;
LogicFont.lfFaceName:='宋体';
with image1.Canvas do
begin
Font.handle:=CreateFontIndirect(LogicFont); //用新创建的字体代替默认的字体句柄;
textout(50,120,PChar(str));
end
end;