Добрый день! Помогите решить проблему! По клику на каком-либо элементе необходимо отобразить подсказку в стиле Ballon Hint. Подсказка должна отображаться пару секунд. При перемещении мыши или любом другом пользовательском вводе, подсказка должна сразу исчезнуть.
Нашел в интернете нижеследующий код, который модифицировал в части активации подсказки. Однако проблема в том, что при повторном наведении курсора на элемент, активировавший подсказку, она появляется опять! Как от этого избавиться???

Код "помощника"

unit ComponentBaloonHintU;

interface
uses
    Controls, CommCtrl, Graphics;

{$SCOPEDENUMS ON}

type
    TIconKind = (None = TTI_NONE, Info = TTI_INFO, Warning = TTI_WARNING, Error = TTI_ERROR, Info_Large = TTI_INFO_LARGE, Warning_Large = TTI_WARNING_LARGE, Eror_Large = TTI_ERROR_LARGE);
    TComponentBaloonhint = class helper for TWinControl
    public
    procedure ShowBalloonTip(Icon: TIconKind; const Title, Text: string);
    end;

implementation
uses
    Windows;

{ TComponentBaloonhint }

procedure TComponentBaloonhint.ShowBalloonTip(Icon: TIconKind; const Title, Text: string);
var
    hWndTip: THandle;
    ToolInfo: TToolInfo;
    BodyText: pWideChar;
begin
    hWndTip := CreateWindow(TOOLTIPS_CLASS, nil, WS_POPUP or TTS_NOPREFIX or TTS_BALLOON or TTS_ALWAYSTIP, 0, 0, 0, 0, Handle, 0, HInstance, nil);

    if hWndTip = 0 then
    exit;

    GetMem(BodyText, 2 * 256);

    try
    ToolInfo.cbSize := SizeOf(TToolInfo);
    ToolInfo.uFlags := TTF_CENTERTIP or TTF_TRANSPARENT or TTF_SUBCLASS;
    ToolInfo.hWnd := Handle;
    ToolInfo.lpszText := StringToWideChar(Text, BodyText, 2 * 256);
    SetWindowPos(hWndTip, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
    ToolInfo.Rect := GetClientRect;

    SendMessage(hWndTip, TTM_ADDTOOL, 1, integer(@ToolInfo));
    SendMessage(hWndTip, TTM_SETTITLE, integer(Icon), integer(PChar(Title)));
    SendMessage(hWndTip,TTM_SETDELAYTIME,TTDT_AUTOPOP, 2000);
    SendMessage(hWndTip,TTM_SETDELAYTIME,TTDT_INITIAL, 100);
    SendMessage(hWndTip,TTM_SETDELAYTIME,TTDT_RESHOW, 100);
    SendMessage(hWndTip, TTM_ACTIVATE, integer(true), integer(@ToolInfo));
    finally
    FreeMem(BodyText);
    end;
end;

end.

В своей программе использую так:

const
  SI_TITLE = 'Заголовок подсказки';
  SI_TEXT  = 'Текст подсказки' + #13 + 'Текст подсказки' + #13 + 'Текст подсказки';
procedure TForm1.Label1Click(Sender: TObject);
begin
  TWinControl(Sender).ShowBalloonTip(TIconKind.Error, 'Baloon Title', 'Baloon text' + #13 + 'Baloon text' + #13 + 'Baloon text');
end;