Помогите пожалуйста с оператором Random

[IDDQD]

Начал обучение языку Delphi по книге Валерия Фаронова - "Система программирования Delphi" ,ну и поскольку человек я усидчивый, хочу разбираться в каждой мелочи,возник вопрос, который не могу решить своими силами, поэтому обращаюсь к знатокам на этом форуме, помогите пожалуйста.

Суть проблемы
Есть самая простенькая программка-игра "Угадай число", программа случайным образом выбирает число в диапазое от 0 до 1000,запоминает его и потом пользователь пытается его угадать. Вообщем то во всём разобрался и программка компилируется и запускается - НО почему то ВСЕГДА программа выбирает число 0.

Ниже представляю листинг программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, Buttons, ExtCtrls;

type
  TfmExample = class(TForm)
    Panel1: TPanel;
    bbRun: TBitBtn;
    bbClose: TBitBtn;
    edInput: TMaskEdit;
    lbOutput: TLabel;
    mmOutput: TMemo;
    procedure FormActivate(Sender: TObject);
    procedure bbRunClick(Sender: TObject);
  private
    { Private declarations }
     X : Integer;
  public
    { Public declarations }

end;

var
  fmExample: TfmExample;

implementation

{$R *.dfm}


procedure TfmExample.FormActivate(Sender: TObject);
begin
X := Random(1001);   //Предполагаю что тут загвоздка.
edInput.SetFocus;
Caption := 'Угадайте целое число в диапазоне от 0...1000';
lbOutput.Caption := 'Введите число:';
end;

procedure TfmExample.bbRunClick(Sender: TObject);
var
Y : Integer;
begin
if edInput.Text = '' then
Exit;
Y := StrToInt (Trim(edInput.Text));
edInput.Text := '';
edInput.SetFocus;
if Tag = 0 then
if X < Y then
mmOutput.Lines.Add ('X < '+IntToStr(Y))
else if X > Y then
mmOutput.Lines.Add ('X > '+IntToStr(Y))
else
begin
mmOutput.Lines.Add ('X = '+IntToStr(Y));
MessageBeep(MB_OK);
lbOutput.Caption := 'ВЫ УГАДАЛИ,ВВЕДИТЕ 1, ЕСЛИ ХОТИТЕ ПОВТОРИТЬ:';
Tag :=1;
end
else
if Y = 1 then
begin
X := Random (1001);
lbOutput.Caption := 'Введите число:';
Tag :=0;
edInput.SetFocus
end else
Close;
end;

end.

Повторю,что всё работает,но почему то программа постоянно загадывает только 0! Почитал в справке Delphi про Random, там всё написанно так,как я и делаю.
Работаю в среде Delphi 7, под Windows Vista, возможно это из за проблем совместимости? Хотя все другие программы что я компилировал и писал (их пока не много) работают нормально.

Заранее благодарю за ответ.

[puporev]

begin
X := Random(1001); //Предполагаю что тут загвоздка.

Вставьте между этими строчками Randomize; это процедура, которая генерирует случайные числа.

[IDDQD]

По книге этого не было в тексте программы.
В Help`e читал об этой процедуре,но понял что это неcколько другое, она генерирует случайные числа на основе системного таймера, а та что представлена в этой программе,просто псевдослучайные числа,дак вот мне интересное почему она это НЕ делает и постоянно выбирает 0?

При помощи вашего варианта,все заработало нормально, но непонятно почему не работает Random.

[Somebody]

Random генерирует псевдослучайные числа, используя переменную RandSeed, которая изменяется по некоторому алгоритму при каждом вызове Random.
Randomize изменяет RandSeed, используя системный таймер.
Таким образом, можно либо генерировать числа на основе таймера, т.е. перед каждым Random вызывать Randomize, либо генерировать псевдослучайные числа, инициализировав 1 раз RandSeed с помощью Randomize. Обычно используется 2-й метод, т.е. случайные числа получаются с помощью Random, а Randomize вызывается 1 раз в начале программы (например, в разделе initialization модуля или по событию OnCreate формы).

[Карась]

http://www.delphibasics.ru/Randomize.php
http://www.delphibasics.ru/Random.php
Почитай...

Delphi использует генератор псевдослучайных чисел, который, каждый раз, при выполнении программы возвращает одну и ту же последовательность значений (232).

Чтобы избегать этой предсказуемости, используйте процедуру Randomize. Она в качестве начального псевдослучайного значения устанавливает текущее время.

[IDDQD]

Всем спасибо, разобрался.

[Лубышев]

просто перед random нужно пользоваться randomize - функция выдает каждый раз новое число. Random - без randomize выдаст каждый раз одно и тоже число. В книге это обьесняется примерно так: Это нужно для нахождения ошибок в программе. После отработки всей программы, нужно выше функции Random написать randomize