Kein ENDE

[B1acka5s77]

Servus!!!
Hab ein Problem mit meinem Kartenspiel(UNO):
Ich gebe jedem Spieler jeweils 8(anz_sp=8) zufällige Karten aus dem ARRAY. Die restlichen Karten werden zufällig auf den Nehstapel verteilt.
Es wird auch bei jedem legen einer Karte die Anzahl um eins verringert(anz_sp:=anz_sp-1)!!
Aber wenn die anz_sp=0 ist möcht ich per showmessage('Gewonnen') ausgeben, doch anstatt Delphi dies tut, bekommt der Spieler nochmals 8 Karten ohne Wert, Farbe oder Funktion!!!
Also bräucht ich ein Befehl, der das einmalige verteilen der 8 Karten für die Spieler ermöglicht???

Danke