调用DLL窗体 cannot assign a TFont to a TFont 问题

把系统的graphics.pas拷贝到自己的工程目录，修改TCanvas.SetFont函数 
procedure TCanvas.SetFont(Value: TFont); 
begin 
  FFont.Assign(Value); 
end; 

给上面的代码加上 try..except保护，编程如下： 
procedure TCanvas.SetFont(Value: TFont); 
begin 
  try 
    FFont.Assign(Value); 
  except 
  end; 
end; 

然后在DLL工程中引入我们修改好的文件，重新编译DLL，该提示不会再出现，至于有什么后遗症，暂时未知。