Hallo!
Es gibt da die Funktion Random. Die liefert einen Wert von 0 (einschließlich) bis zum angegebenen Wert (ausschließlich).
zufall := Random (4) + 1; liefert also von 0 bis 3 und erhöht das Ganze um 1 - also von 1 bis 4 (einschließlich).
Nicht vergessen, einmal im Programm (onCreate des Formulars, Konstuktor des Formulars, Initialisierungsabschnitt eriner Unit)Randomize;aufrufen. Keinesfalls Randomize direkt vor Random, dann gibt es bei schnellen Aufrufen immer dieselbe Zahl!
Gruß
Dietmar Brüggendiek