delphi 中的hint 怎么改变它的字体和字体颜色？

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Hint := 'Enter your name';
Edit1.ShowHint := True;
Screen.HintFont.Color := clblue;//颜色
Screen.HintFont.Name:= '宋体';//字体
Screen.HintFont.Size:= 10;//字大小
application.ShowHint:=true;
end;