Danke, ich habe den Fehler gefunden. Ich weise Richtung 0 oder 1 zu. Dann prüfe ich, ob es 0 ist. Es ist ja logisch, dass er dann irgendwann mal den Wert 0 annimmt. Jetzt ist der Startwert 3. Den kann er durch das Erzeugen nie bekommen. Jetzt funzt es:
Delphi-Quellcode:
if Richtung = 3 then
begin
Richtung := Random(2);
RWeite := Random(5);
end;
Diese kleinen Fehlerchen immer!
DANKE!