Hilfe beim Erstellen eines Würfelprogramms

[lali]

Hallo,
ich bräuchte Hilfe beim Erstellen eines Würfelprogramms. Dabei soll via buttonclick 20 mal gewürfelt werden bzw solange bis eine 6 gewürfelt wird und in der Listbox soll die Anzahl der Versuche angegeben werden.
Der Quelltext macht mir große Probleme (bin noch nicht lange mit delphi vertraut) und ich probiere schon seit Stunden rum, aber kriege immer wieder Fehlermeldungen. Ich hatte da an eine Repeat-Until Schleife gedacht, aber habs nicht richtig hingekriegt.
Kann mir jemand ein wenig beim Quelltext helfen?
Dankeschön.