Работа с Random. Опции

[Славик]

Здравствуйте!

Есть код

 program R;
var
 X: Byte;
radomize: integer;

begin
 for x := 1 to 4 do
   WriteLn(Random(10));
end.

Но, при "проигрывании" ВСЕГДА выдает ОДНО и тоже. То есть, нет выпадания случайных чисел.

0
0
8
2

(0082 при каждом запуске)

У меня виндовс XP. Что можно сделать?

P.S. повторы выпадания чисел происходят всегда, с любым указанным количеством номеров. И всегда номера начинаются на НОЛЬ.

[FAngel]

Вы меня немного не поняли. Как эти команды работают я знаю и Хэлпу читал. Мне надо знать откуда появляються эти самые случайные числа, непосредственно механизм, причем я хотелбы просто узнаеть книги в которых об этом можно было бы почитать. А если есть возможность то ссылки на книги в нете.

Заранее благодарен.