Wechsel der Zufallszahlen dauert zu lange

[Ingo]

Ich brauche in kurzer Zeit viele Zufallszahlen. Das Programmfragment, dass ihr unten findet, generiert die Zufallszahlen aber zu langsam, nur etwa jede Sekunde wird die Zufallszahl neu bestimmt.
Was muss ich ändern?

int zufallszahl_erzeugen()
{
    long sek;
    time (&sek);
    srand((unsigned)sek);
    int r = (rand() % 15 + 1); //r enthält jetzt eine Zufallszahl zwischen 1 und 15
    return r;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    for (int i = 0; i < 1000; i++)
    {
        int z = zufallszahl_erzeugen();
        Memo1->Lines->Add(IntToStr(z));
    }
}
//---------------------------------------------------------------------------

[depp]

srand nur einmal aufrufen.