运行了一段时间，无意中发现程序连续调出n个"a call to an OS function failed"的错误对话框。。。。
不知道是什么原因导致的，因为没有去操作它，也许是定时事件，也许是显示或关闭hint的时候？
现在怎么试，又都不出现了。。。。

把程序重新编译一遍，就这样了：如果鼠标在它的某个控件上面一直不动，出现了hint后，主窗口mosttop后，hint自动关闭并重新显示了
到一定的秒数，hint会自动关闭。
但是再过几秒，hint又会出现！
而上次编译的程序有不会这样（好像没改动什么地方）。

procedure TFormDateTime.setmosttop;
begin
if YMer.CBkeyword.Showing then
exit;

setwindowpos(self.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);

//如何判断：当前有hint被显示还是没有呢？application.Hint，在没有hint显示时，内容也仍然是上次的hint内容。。。。
//if application.Hint<>'' then
if application.showHint and (application.Hint<>'') then
Begin
application.HideHint;
application.ActivateHint( mouse.CursorPos );
end;

end;