Kein ENDE

[sx2008]

OK, mal was Grundsätzliches:
du speicherst deine Karten in einem Array. Das ist aber ungeschickt, da man die Karten in einer Liste speichern sollte.
Du hast eine Hauptliste mit allen Karten und jeder Spieler hat seine eigene Liste. Vielleicht gibt es auch noch eine "Pot"-Liste; das hängt vom Kartenspiel ab.
Wenn nun Karten verteilt werden, wird aus der Hauptliste zufällig eine Karte gezogen, aus der Hauptliste entfernt und in die Spielerliste eingefügt.
Mit diesem Konzept werden sich viele Dinge vereinfachen!
Die Kartenliste kannst du von TList oder TObjectList ableiten.
Du müsstest deinen ganzen Sourcecode wegwerfen und neu anfangen, aber das lohnt sich!