Tooltip im Systray ändern

[Yan]

Im Moment habe ich folgenden Code:

Delphi-Quellcode:

procedure TaskBarAddIcon;
var
  tnid: TNOTIFYICONDATA ;
begin
  with tnid do
  begin
    cbSize := sizeof(TNOTIFYICONDATA);
    Wnd := Form1.handle;
    uID := 1;
    uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
    uCallbackMessage := WM_TASKBAREVENT;
    hIcon := application.icon.handle;
  end;

  strcopy(tnid.szTip,'Status');
  Shell_NotifyIcon(NIM_ADD, @tnid);
end;

Kann ich dann das ganze einfach nochmal mit einem anderen Tooltip ausführen?