Probleme mit TrayIcon in anderen Formularen

[gangs-taas]

hey,
ich habe in einem Formular(Form4) 31 Trayicons.
und ichm öchte für jeden Tag im monat einen anderen anzeigen.
Also dachte ich ich schreib das hier

Delphi-Quellcode:

procedure TForm1.InTrayschicken1Click(Sender: TObject);
var
Icon : TTrayicon;
TagHeute,Monat,Jahr : Word ;
begin
Decodedate(now,jahr,monat,TagHeute);
Icon := FindComponent('TForm4.TrayIcon' + IntToSTr(TagHeute)) as TTrayicon;
Icon.visible := True ;  // hier breakpoint
Form1.Visible := False ;
end;

aber es geht nicht. Ich bekomme die Meldung "Zugrifsverletzung bei der Adresse irgednwas".
Und icon hat wenn man am Breakpoint nahält den wer nil...

wieso kann ich da so nicht drauf zugreifen, so :

Delphi-Quellcode:

procedure TForm1.InTrayschicken1Click(Sender: TObject);
begin
Form4.TrayIcon2.Visible := True ;
end;

aber schon ?

warum geht das nicht ?

lg ^^