Работа с Rand

[Enigma_]

Подскажите пожалуйста. Написала функцию для генерации числа от 0 до 1
double RANDD()
{
srand(time(0));
return rand()/double(RAND_MAX);
}

Теперь хочу к ней обратиться в цикле, чтоб каждый раз было новое число, а он почему-то возвращает 5 одинаковых чисел. Подскажите где ошибка?

void __fastcall TfrmMetod::N5Click(TObject *Sender)
{

int j;

for (j=0; j<5 ; j++)
{
RANDD();
frmMetod->ListBox1->Items->Add(RANDD());
}

}

[Пепел Феникса]

зачем кросспостите?

я уже ответил, srand надо вызывать лишь один раз.