Случайное число

[mactepmac]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  result: integer;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
begin
   result := random(15);
Label1.Caption:=inttostr(result);
end;

Простейшая программа. Формирует случайное число от 0 до 15. Суть проблемы в следующем. При запуске программы нажимаешь на метку и появляется случайное число, нажимаешь еще и следующее случайное число появляется. Если закрыть программу и заного ее запустить, то при последовательных кликах на метке будет появляется такая же последовательность 'случайных' чисел. В итоге получается что последовательность случайных чисел одна и таже. Как избавиться от этого эффекта?

[ZvEr_HaCkEr]

Randomize;

[mactepmac]

это на каком языке? на тарабарском?

[ZvEr_HaCkEr]

procedure TForm1.Label1Click(Sender: TObject);
begin
Randomize;
   result := random(15);
Label1.Caption:=inttostr(result);
end;

[Serge_Bliznykov]

только я бы рекомендовал всё же вызов иницилизации счётчика
Randomize;

как и рекомендуюется - производить один раз при запуске программы.

В Delphi для этого отлично подходит событие на создание формы OnCreate
(двойной щелчёк лев.кнопкой мышки по самой форме) и можно писать код...

[mactepmac]

вот теперь все понятно. спс