randomize

[nahpets]

Hallo,

meinst Du sowas?
fname := ExtractFileDir(Paramstr(0))+'test' + IntToStr(Random(15) + 1) + '.mp3';