Каждый раз присваивает заново

[V@mpir]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public

       { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,p,o,u:integer;
begin
u:=1000;
randomize;
i:=random(3)+1;
label1.Caption:=IntToStr(i);
p:=random(3)+1;
label2.Caption:=IntToStr(p);
o:=random(3)+1;
label3.Caption:=IntToStr(o);
 if ((p=i) and (i=o) and (o=p))
 then
 u:=u*2
else
u:=u-100;
label4.caption:=IntToStr (u);
 end;
end.

Программа почему то каждый раз заново присваивает "U" значение 1000, а должна выполнять действия с уже измененным значением?

[Neeter]

У меня все работает. U равно то 900, то 2000

[ViNcHeStEr]

У меня тоже работает, то 900, то 2000.
//если имеешь ввиду, что когда повторно нажимаешь кнопку u присваивается 1000, то нужно u:=1000; написать здесь:

procedure TForm1.FormCreate(Sender: TObject);
begin
u:=1000; //выполняется при создании формы
end;

а в описании кнопки u:=1000; удалить.

[V@mpir]

Ну вот так как раз таки не должно быть (2000. 900) должно быть так 1000 и от неё в зависимости от рандома или убывает 100 или умножается на 2 но убывать и умножаться должно уже от получившегося результата тоесть например: выпало что не все равны тогда получим 900 выпало еще раз неравны получим 800 и вдруг выпало все равны получим 1600 вот как должно быть.

Вписать переменную в процедуру для формы я побывал, тогда пишет на кнопке не объявленная переменная, прописал и там её в var тогда всё по старому - первая ошибка

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

обьявите в интерфейсном разделе её+пост номер 3

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  u:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize; //выполнять один раз при открытии приложения(не критично, но более правильно)
u:=1000; //выполняется при создании формы
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,p,o:integer;
begin
i:=random(3)+1;
label1.Caption:=IntToStr(i);
p:=random(3)+1;
label2.Caption:=IntToStr(p);
o:=random(3)+1;
label3.Caption:=IntToStr(o);
 if ((p=i) and (i=o) and (o=p))
 then
 u:=u*2
else
u:=u-100;
label4.caption:=IntToStr (u);
 end;
end.

вроде так получится