输出空心字体

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Font.Name := 'Times New Roman'; //这里的字体一定要是TrueType Font
  Canvas.Font.size := 72;
  Canvas.Font.style := [fsItalic,fsBold];
  beginpath(canvas.handle); //开始捕获 Canvas上绘制的轮廓
    SetBkMode( Canvas.Handle, TRANSPARENT );
    canvas.TextOut(20,40,'Hello');
  endpath(canvas.handle); //结束捕获

  Canvas.Pen.Color := clred;
  StrokePath(canvas.handle); //将捕获的轮廓用当前的Pen画到Canvas上
end;