Не могу заставить отнимать число в лабеле

[grom333]

Надо чтобы, при каждом нажатии на батон отнималось число 5 из лабела. Изначально лабелу присвоено число 100

procedure TForm1.FormCreate(Sender: TObject);
begin
    o:=100;
label1.Caption:=inttostr(o);




end;

procedure TForm1.BitBtn1Click(Sender: TObject);

o:=o-5;
         //âûâîä êàðòèíîê
  k1:=random(4);
    k2:=random(4);
      k3:=random(4);
  if k1=0 then image1.picture.LoadFromFile('sem.jpg');
   if k1=1 then image1.picture.LoadFromFile('vishnya.jpg');
   if k1=2 then   image1.picture.loadfromfile('arbuz.jpg');
   if  k1=3 then   image1.picture.loadfromfile('jekpot.jpg');
      if k2=0 then image2.picture.LoadFromFile('sem.jpg');
   if k2=1 then image2.picture.LoadFromFile('vishnya.jpg');
   if k2=2 then   image2.picture.loadfromfile('arbuz.jpg');
   if  k2=3 then   image2.picture.loadfromfile('jekpot.jpg');

  if k3=0 then image3.picture.LoadFromFile('sem.jpg');
   if k3=1 then image3.picture.LoadFromFile('vishnya.jpg');
   if k3=2 then   image3.picture.loadfromfile('arbuz.jpg');
   if  k3=3 then   image3.picture.loadfromfile('jekpot.jpg');
   //çàêîí÷èëè âûâîäèòü êàðòèíêè


   if (k1=0) and  (k2=0) and (k3=0) then
     begin
     o:=o+s*5;
     end;
   if (k1=1) and  (k2=1) and (k3=1) then
      begin
     o:=o+s*5;
     end;
     if  (k1=2) and  (k2=2) and (k3=2) then
      begin
     o:=o+s*10;
     end;
      if  (k1=3) and  (k2=3) and (k3=3) then
      begin
     o:=o+s*100;
     end;

       end;


end.

[Alex Cones]

procedure TForm1.FormCreate(Sender: TObject);
begin
    o:=100;
label1.Caption:=inttostr(o);




end;

procedure TForm1.BitBtn1Click(Sender: TObject);

o:=o-5;
         //âûâîä êàðòèíîê
  k1:=random(4);
    k2:=random(4);
      k3:=random(4);
  if k1=0 then image1.picture.LoadFromFile('sem.jpg');
   if k1=1 then image1.picture.LoadFromFile('vishnya.jpg');
   if k1=2 then   image1.picture.loadfromfile('arbuz.jpg');
   if  k1=3 then   image1.picture.loadfromfile('jekpot.jpg');
      if k2=0 then image2.picture.LoadFromFile('sem.jpg');
   if k2=1 then image2.picture.LoadFromFile('vishnya.jpg');
   if k2=2 then   image2.picture.loadfromfile('arbuz.jpg');
   if  k2=3 then   image2.picture.loadfromfile('jekpot.jpg');

  if k3=0 then image3.picture.LoadFromFile('sem.jpg');
   if k3=1 then image3.picture.LoadFromFile('vishnya.jpg');
   if k3=2 then   image3.picture.loadfromfile('arbuz.jpg');
   if  k3=3 then   image3.picture.loadfromfile('jekpot.jpg');
   //çàêîí÷èëè âûâîäèòü êàðòèíêè


   if (k1=0) and  (k2=0) and (k3=0) then
     begin
     o:=o+s*5;
     end;
   if (k1=1) and  (k2=1) and (k3=1) then
      begin
     o:=o+s*5;
     end;
     if  (k1=2) and  (k2=2) and (k3=2) then
      begin
     o:=o+s*10;
     end;
      if  (k1=3) and  (k2=3) and (k3=3) then
      begin
     o:=o+s*100;
     end;
   LABEL1.CAPTION:=INTTOSTR(O);
       end;


end.

[grom333]

спасибо, только Вам репутацию не могу повысить.

[russian-stalker]

Может лучше

 if k1=0 then image1.picture.LoadFromFile('sem.jpg');
   if k1=1 then image1.picture.LoadFromFile('vishnya.jpg');
   if k1=2 then   image1.picture.loadfromfile('arbuz.jpg');
   if  k1=3 then   image1.picture.loadfromfile('jekpot.jpg');

заменить на

  case k1 of
   0: image1.picture.LoadFromFile('sem.jpg');
   1: image1.picture.LoadFromFile('vishnya.jpg');
   ...
  end;

[Alex Cones]

заменить на

А лучше вообще делать массивами:

k:Array[0..2] of Byte;
Path:Array[0..2] of String;

[grom333]

я немного изменил, теперь s это выбор радиобатона, но не отнимает

if radiogroup1.ItemIndex=0 then s:=5;
if radiogroup1.itemindex=1 then s:=10;

o:=o-s;

[profi]

я немного изменил, теперь s это выбор радиобатона, но не отнимает

Код в студию, что ты изменял.

[grom333]

Сообщение от profi

Код в студию, что ты изменял.

код сверху, только вот это

o:=o-5;

заменил на вот это

if radiogroup1.ItemIndex=0 then s:=5;
if radiogroup1.itemindex=1 then s:=10;

o:=o-s;

[Levsha100]

А лучше вообще делать массивами:
k:Array[0..2] of Byte;
Path:Array[0..2] of String;

А лучше записями/объектами!

TPImage=record
Number:Byte;
Path:String;
end;
Images:Array[0..2] of TPImage;

[grom333]

для меня еще это не дойдет. Пока рано, то что вы пишите - я начинающий.
=================================== ===================
Вот кстате, вопрос есть. Жму набатон как вы видели по кодув 3 имэджа выходят рисунки рандомно, (есть 3 рисунка). При совпадении рисунков очки добавляются. Но я уже с час челкаю, знакомым пораздовал, выпадают только первые рисунки. Редко второй по счету выпадает 1 раз 100. А на счет 3 и 4 вообще совпадений не бывает. Как это изменить?
Конечно, хорошо, у меня 4по счету рисунок "Джек пот", как в жизни редко выпадает, но уже запарился тыкать, не хочет делать совпадение!