unitSherryHint;interfaceusesWindows,Messages,Classes,Controls,Forms,CommCtrl;typeTHintWin=class(THintWindow)privateFLastActive:THandle;publicprocedureActivateHint(Rect:TRect;ConstAHint:string);override;//end;implementationprocedureAddTipTool(hWnd:DWORD;IconType:Integer;Title,Text: