Balão de Mensagem do TryIcon

procedure TSendFTP.FormCreate(Sender: TObject);
begin
  with TrayIconData Do
    begin
      application.Icon.LoadFromFile(´c:\ftp\imagens\theinternet.ico´);
      cbSize := Sizeof(TrayIconData);
      Wnd:= Handle;
      uID:= 0;
      uFlags:= NIF_MESSAGE + NIF_ICON + NIF_TIP;
      uCallBackMEssage:= WM_IContray;
      hIcon:= Application.Icon.Handle;
      StrpCopy(szTip, SendFtp.Caption);
    end;
  Shell_NotifyIcon(NIM_ADD, @TrayIconData);
end;

procedure TSendFTP.FormDestroy(Sender: TObject);
begin
  Shell_NotifyIcon (NIM_DELETE, @TrayIconData);
end;

procedure TSendFTP.TrayMouseClick(var Msg: tMessage);
var
  Pt: TPoint;
begin
  case Msg.LParam of
    WM_LBUTTONDBLCLK:
      Begin
        SendFTP.Show;
        application.Restore;
      end;

    WM_RBUTTONDOWN:
      begin

       GetCursorPos (Pt);
      // SetForegroundWindow (Handle);
       PopupMenu1.Popup (Pt.x, Pt.y);
      end;
  end;
end;