Icon im Tray ändern zwecks Statusanzeige

[Igotcha]

Habs per API-Code gemacht (hier im Forum gefunden), hier ein Ausschnitt:

Delphi-Quellcode:

  
     Application.ShowMainForm := False; //Programm gar nicht erst anzeigen 
     IconData.cbSize := SizeOf(IconData); 
     IconData.Wnd := Handle; 
     IconData.uID := 100; 
     IconData.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP; 
     IconData.uCallBackMessage := WM_USER + 20; 
     IconData.hIcon := Application.Icon.Handle; 
     IconData.szTip := 'SysInfo'; 
     Shell_NotifyIcon(NIM_ADD, @IconData);  // fügt das Icon ein

In diesem Fall wird dem TNA-Icon einfach das Handle des Application-Icons übergeben, so wie ich das sehe.

Nehmen wir mal an, ich habe meine beiden Icons in einer Imagelist, wie kann ich dann das TNA-Icon ändern?

Gruß Igotcha