hai ragione! non ricordavo piu' che Random prende un intervallo!


...
Randomize;
risultato := Random(5) +1;
...

prova cosi'