delphi 修改Hint的字体和颜色

//修改Hint的字体和颜色 
  public
    { Public declarations }
    procedure Sshowhint(var hintstr:string;var canshow:Boolean;var HintInfo:THintInfo);

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.Hint:= '改变提示栏';
  form1.ShowHint:=true;
  Application.OnShowHint:= Sshowhint;
end;

procedure TForm1.Sshowhint(var hintstr:string; var canshow: Boolean;
  var HintInfo: THintInfo);
var
  i:integer;
begin
  for i:=0 to Application.ComponentCount-1 do
    if Application.Components[i] is THintWindow then
      with THintWindow(Application.Components[i]).Canvas do
      begin
        Font.Name := '隶书';
        Font.Size := 18;
        HintInfo.HintColor := clskyblue;
      end;
end;


//完成 -> 修改任意组件提示文本的样式