Random Befehl spielt verrückt

[abrosda]

Benutze statt der Funktion random(6) lieber randomrange(1,6).
Random(6) liefert Dir Zufallswerte zwischen 0 und 6(!).
Außerdem solltest Du den Generator initialisieren, mit Randomize.

Falls es RandomRange nicht gibt:
a:= Round(Random(5) + 1);