Form4.FindComponent('TrayIcon' + IntToSTr(TagHeute)...
Der Fehler ist, daß es keine Komponente mit dem Namen "TForm4.TrayIcon*" in Form1 gibt
aber ich empfehle dir nur ein TryIcon zu verwenden, da alle Bilder reinzuladen und dann einfach nur das gewünschte Icon aus der List auszuwählen.