Mit Zufallsteuerung aus einem Memo einige Texte ausgeben

[TeronG]

Lösche doch einfach die schon gewonnenen Preise.

z.B.: Zu löschenden gewinn mit dem Letzten Tauschen und dann das dynamische array um eins verkleinern.
Die for-schleife kannste dann mit "for i := 0 to high(a) do ..." realisieren ohne, daß du übers Ziel hinausschießt. ^^

Du könntest was ich schöner fände auch statt deinem Array eine TStringList benutzen. Vorteil währe 1.) die hat ein .Delete und 2.) ein .LoadFromFile bzw. .SaveToFile