procedure TForm1.FormCreate(Sender: TObject);
begin
  // 這裡的字不會顯示, 為什麼 ?
  Paintbox1.Canvas.Font.Name:='Times New Roman';
  Paintbox1.Canvas.Font.Size:=32;
  Paintbox1.Canvas.Font.Color:=clBlue;
  Paintbox1.Canvas.TextOut(0,100,'Delphi');
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  Paintbox1.Canvas.Font.Name:='Times New Roman';
  Paintbox1.Canvas.Font.Size:=32;
  Paintbox1.Canvas.Font.Color:=clRed;
  Paintbox1.Canvas.TextOut(10,10,'Delphi');
end;