WinAPI: Icon nach CreateWindowEx noch ändern

[isilive]

Die Icons werden in unregelmässigen Abständen geändert.
Je nach Stellung einer TTrackbar ändert sich das Icon in der TNA.
Es gibt 6 Stück davon xx0-5.ico und die werden jetzt halt per Loadfromfile geladen.

Delphi-Quellcode:

procedure TForm1.ChangeTrayIcon(a:integer);
var name:pwidechar;
begin
  name := PChar('sound'+inttostr(a)+'.ico');
  hMainIcon:= LoadImage (hInstance , name , IMAGE_ICON,16,16,LR_LOADFROMFILE); //laden
  NID.hIcon               := HMainIcon;                                        // und zuweisen
  Shell_NotifyIcon(NIM_MODIFY, @NID);                                          // Modify melden
end;

Wie packe ich die jetzt eleganter (bzw. in die exe) rein?