Ich hab mir die Mühe gemacht deinen Code herunterzuladen.
Es wäre schön gewesen, wenn Du den Code für das Ziehen der Lottozahlen in eine eigene Funktion gestellt und in deinem Beitrag veröffentlicht hättest. Trennung von Oberfläche und Funktionalität erleichtert immer das Lesen eines Codes, ganz bestimmt wenn man auf alle Kommentare verzichtet.
Fehler in deinem Code:
a:= random(49)+1;
gibt eine Zahl im Bereich 1..50 zurück!
Die Schleife
Delphi-Quellcode:
repeat
a:=random(49)+1;
until not zahl[a];
fängt nur doppelte Zahlen, die unmittelbar aufeinanderfolgen ab. Wozu?
Das ZDF zeigt die Lottozahlen immer waagerecht sortiert von der kleinsten zur größten, deine Darstellung ist etwas ungewohnt.
Die Prüfung der Statistik wird dadurch erheblich erschwert, dass die alten Ziehungen verschwinden!