Hai Denny,
in deinem Code ist ein grundlegender Fehler.
Zitat von
Denny:
Das ist mein Code:
Richtung := Random(1);
Das bedeutet das Richtung
immer den Wert 0 haben wird. Random liefert einen Zufallswert im Bereich von 0 bis < Range zurück.
Wenn der Range 1 ist wird also immer eine Zufallszahl zwichen 0 und 0 erzeugt
BTW:
Randomize sollte nur einmal beim Programmstart (OnCreate der Form) aufgerufen werden.