Problem mit Anzeige in Listbox

[Hallo_Thomas]

Nachdem ich mein Programm nach Unit 2 verschoben funktioniert die Listbox(Hier anzeige)nicht mehr.
Meiner meinung nach muss es an diesen Textstellen liegen:



Quelltext

Delphi-Quellcode:

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
AddMyItem('3', clRed);
end;

unit

Delphi-Quellcode:

procedure TForm2.Addmyitem(const AItem: String; const AColor: TColor);
var
 begin
  Form1.Anzeige.Items.InsertObject(0, AItem, Pointer(AColor));