Всплывающие сообщения

[mrcsc]

Здравствуйте, коллеги.

Я пробую написать всплывающее окно.

procedure TForm1.fShowHint(Text:String);
var
  H:HWND;
  Rec:TRect;
  NeededTop:integer;
  HintForm:TForm;
  HintLabel:TLabel;
  aw:hwnd;
begin

  H := FindWindow('Shell_TrayWnd', nil);
  if h=0 then exit;

  GetWindowRect(h, Rec);

  HintForm:=TForm.Create(nil);
  with HintForm do
    begin
      Width:=245;
      Height:=100;

      Color:=clSkyBlue;
      BorderStyle:=bsNone;

      //Создаём текст
      HintLabel:=TLabel.Create(nil);
      with HintLabel do
        begin
          Parent:=HintForm;

          WordWrap:=true;

          Caption:=' '+Trim(Text)+' ';

          Align:=alClient;
          Layout:=tlCenter;
          Alignment:=taCenter;
        end;

      AlphaBlend:=true;
      AlphaBlendValue:=220;

      aw:=GetActiveWindow;
      ShowWindow(handle,SW_SHOWNOACTIVATE);
      SetActiveWindow(aw);

      Left:=Screen.Width-Width;
      Top:=Screen.Height-20;

      //Выезжаем вверх
      NeededTop:=Rec.Top-Height;
      while Top>NeededTop do
        begin
          Top:=Top-2;
          Repaint;
          Sleep(5);
        end;

      Sleep(1000);


      //Выезжаем вниз
      NeededTop:=Screen.Width-20;
      while Top<NeededTop do
        begin
          Top:=Top+2;
          Repaint;
          Sleep(5);
        end;

      HintLabel.Free;
      Free;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.fShowHint('Всплывающее окно');
end;

Подскажите, пожалуйста как мне обработать события на этом окне..
Например, щелчек мыши по всплывающему окну?

Есть ли какой-то еще более лучший способ решения моей проблемы