Mit Zufallsteuerung aus einem Memo einige Texte ausgeben

[LingNeu]

Hallo Delphifreunde,
ich möchte ein Glücksspiel programmieren.
Da habe ich einige Arrayelemente mit folgendem Inhalt

a[0] := 'Kopfhörer';
a[1] := 'Puppe';
a[2] := 'Gummibärchen';
a[3] := 'iPod';
a[4] := 'Reise';
a[5] := 'Brotzeit';
a[6] := 'Spiel1';
a[7] := 'Spiel2';
a[8] := 'Musik-CD'; //usw

Jetzt möchte ich durch einen Zufall aus diesem Text einige "Gewinne" ziehen.
Wenn ich jetzt 3 Gewinne möchte, sollen aus dem Array 3 beliebige Gewinne gezogen werden.
Ich bin noch Newbie und hab noch keinen Peiler wie man sowas hinbekommt.
Wenn ich jetzt eine Schleife mache, dann kann es passieren, das der gleiche Gewinn nochmals kommt.
Vielleicht hat jemand von Euch eine Anregung oder Tipp.
Wäre echt dankbar
ciao
LingNeu