Как показать округлённое окошко подсказки в трее?

Code:

uses SysUtils, Windows, ShellAPI;

function DZBalloonTrayIcon(const Window: HWND; const IconID: Byte; const Timeout: TBalloonTimeout; const BalloonText, BalloonTitle: String; const BalloonIconType: TBalloonIconType): Boolean;

const

aBalloonIconTypes : array[TBalloonIconType] of Byte = (NIIF_NONE, NIIF_INFO, NIIF_WARNING, NIIF_ERROR);

var

NID_50 : NotifyIconData_50;

begin

FillChar(NID_50, SizeOf(NotifyIconData_50), 0);

with NID_50 do begin

   cbSize := SizeOf(NotifyIconData_50);

   Wnd := Window;

   uID := IconID;

   uFlags := NIF_INFO;

   StrPCopy(szInfo, BalloonText);

   uTimeout := Timeout * 1000;

   StrPCopy(szInfoTitle, BalloonTitle);

   dwInfoFlags := aBalloonIconTypes[BalloonIconType];

end{with};

Result := Shell_NotifyIcon(NIM_MODIFY, @NID_50);

end;