Kleiner Tipp (ja, auch ich habe schon ein Kniffel geschrieben): wenn man sich ein Array[1..6] of byte deklariert, kann man darin schön festhalten, welche Zahl wie oft gewürfelt wurde. Das erleichtert auch die Auswertung, bei einem FullHouse z.B. muss ja eine Zahl 3 mal und eine 2 mal vorkommen.
Das hast Du nicht gelesen?
Delphi-Quellcode:
for i:=1 to 6 do
array[i]:=0;
for i:=1 to anzLabel do
inc(Array[inttostr(label.text)],1);
und danach kommt die Auswertung.
(da oben das ist Pseudocode!)
Gruß
K-H