уменьшение числа

[undead92]

никак не пойму как сделать, есть в caption число 100, и при нажатии на button оно должно уменьшаться на 10 вплоть до 0 ( желательно конечно даже не на 10 а в случайном диапозоне от 10 до 15) , как ни крутил, один раз срабатывает число становится 90, но дальше ничего не происходит, хотя делал цикл и засовывал в него d:=x-10 где x=100 а d в caption идет ,не работает, подскажите пожалуйста

[Serge_Bliznykov]

повесьте на кнопку Button1 такой, например, код:

var b, r : integer;
begin
  b := StrToInt( Button1.Caption );
  if b>0 then begin
    if b>15 then r := 10 + random(6)
    else r := 1 + random(b);
    Button1.Caption := IntToStr(b - r);
  end;

p.s. не забудьте на FormCreate вызввать иницилизацию ГСЧ:
Randomize;

[undead92]

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

повесьте на кнопку Button1 такой, например, код:

var b, r : integer;
begin
  b := StrToInt( Button1.Caption );
  if b>0 then begin
    if b>15 then r := 10 + random(6)
    else r := 1 + random(b);
    Button1.Caption := IntToStr(b - r);
  end;

p.s. не забудьте на FormCreate вызввать иницилизацию ГСЧ:
Randomize;

Спасибо большое, работает на ура!