Wozu erstellst du diese Augen dynamisch?
Erstelle schon alle Augen im OI und blende die Nichtbenötigten über .Visible (oder .Hide und .Show) aus/ein.
Achso, da gibt es ja noch garkeine Augen
PS: Das nächste Mal einfach erstmal schauen, ob und wann deine Prozeduren aufgerufen werden.
z.B. Haltepunkte in alle wichtige Prozeduren legen
und/oder eben auch mal im
OI nachsehn.
Beim Debuggen von Button1Click hätte auch noch auffallen können, daß wuerfelo noch NIL ist und somit nie erstellt wurde. (Das geht hier ganz gut, daß Objektvariablen und globale Variablen, wie z.B. wuerfelo automatisch erstmal mit Nullen initialisiert werden)
wuerfelo solltest du uch besser in den Private-Abschnitt der Form verschieben.
> globale Variablen sind "böse"
Darum wird auch immer wieder im Forum darauf hingewiesen, daß Variablen am Besten so nah wie möglich da deklariert werden sollen, wo sie auch verwendet werden.
wuerfelo verwendest du nur innerhalb deiner Form und es wird dort auch erstellt und vernichtet, demnach gehört es quasi auch zur Form und paßt somit sehr gut in
Delphi-Quellcode:
TForm1 = class(TForm)
...
private
{ Private declarations }
wuerfelo: TWuerfel;
public