[Snake22]

создаю иконку в трее своему приложению так

Код:

const
WM_NOTIFYTRAYICON = WM_USER + 1;
var
tray: TNotifyIconData;
  TrayIcon: TIcon
....
На событии создания главной формы:
with tray do begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_NOTIFYTRAYICON;
hIcon := TrayIcon.Handle;
szTip :='Текст';
end;
Shell_NotifyIcon(NIM_ADD, Addr(tray));

как потом во время работы программы сменить szTip :='Текст'; ?
а то повтором вышеперечисленного кода текст не меняется.остается тот который самый первый был