randomize

[sunrise]

Hallo

Kleine frage zu randomize. ich habe hier diese Mediaplayer procedur die eine resource datei abspielt

Delphi-Quellcode:

procedure test;
   var
 rStream: TResourceStream;
 fStream: TFileStream;
 fname: string;
 begin

 fname := ExtractFileDir(Paramstr(0))+'test1.mp3';
 rStream := TResourceStream.Create(hInstance, 'test1', RT_RCDATA) ;
 try
  fStream := TFileStream.Create(fname, fmCreate) ;
  try
   fStream.CopyFrom(rStream, 0) ;
  finally
   fStream.Free;
  end;
 finally
  rStream.Free;
 end;

 MediaPlayer1.Close;
 MediaPlayer1.FileName:=fname;
 MediaPlayer1.Open;
 MediaPlayer1.Play;

     end;

Dazu habe ich 16 Resourcen ,jede resource ist eine kleine Audio datei. Wie kann ich nun via Randomize die prozedur umschreiben das jedesmal eine andere resource datei abgespielt wird?
Stehe gerade echt auf dem schlauch. Hoffe jemand von euch kann mir weiterhelfen...

[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - nächstes mal bitte die richtigen Tags verwenden - Mfg, SirThornberry[/edit]