TCanvas构造函数不会创建TFont对象

Question

我想在运行时在Inno Script的代码部分创建一个Canvas对象。 这是代码的摘录：

[CODE]
var
 Mask : TCanvas;

procedure CreateMask
begin
  Mask:=Tcanvas.create
  if Assigned(Mask.Font) then
    Mask.Font.Color:=50
  else
    MsgBox('Font is nil', mbInformation, MB_OK);
 end;
 .
 .

结果是窗口显示消息：“Font is nil”

问题是Canvas的Font属性是只读的，因此无法使用Mask.Font实例化它：= TFont.Create

所以问题是：如何在运行时创建一个TCanvas对象，关联对象TFont，TPen，TBrush正确实例化？