Delphi další pokus o radu - komponenta Timer

[radekzatec]

RAD STUDIO 10.2

Tak nevím co dělám zle. Řeším tu rotaci čísel v LVCastka.Caption := ((IntToStr(Castka)) + ',- Kč') přes Timer1

Kód: Vybrat vše

procedure Obnos;
  var
    c: integer;  // c jako castka
  begin
    Randomize;
    c := Random(11); // Nahodne cislo od 0 do 10
    if (c = 0) then Castka := 100;
    if (c = 1) then Castka := 100;
    if (c = 2) then Castka := 100;
    if (c = 3) then Castka := 100;
    if (c = 4) then Castka := 200;
    if (c = 5) then Castka := 200;
    if (c = 6) then Castka := 200;
    if (c = 7) then Castka := 500;
    if (c = 8) then Castka := 500;
    if (c = 9) then Castka := 1000;
    if (c = 10) then Castka := 0;
    end;

procedure TForm1.Timer1Timer(Sender: TObject); // casovac pro rotaci castky
  var   i: integer;
  begin
    for i := 0 to 4 do
      begin
        Obnos;
      end;
  end;

procedure TForm1.BtnHratClick(Sender: TObject);
 var
    i: Integer;
  begin
    Obnos;
    if Castka > 0 then
       LVCastka.Caption := ((IntToStr(Castka)) + ',- Kč')
    else
       LVCastka.Caption := ('BANKROT!!!');
       Pocet := 0;
       Timer1.Enabled := False; //zastaveni casovace
      if Castka > 0 then
         Hadat
      else
         Hrat;
         Vyhra := (Castka * Pocet) + Vyhra;
        if LVCastka.Caption = 'BANKROT!!!' then
           Ztrata
        else
           Vyhra := (Castka * Pocet) + Vyhra;
  end;

Nastavení events:
OnTimer := BtnHratClick

Fakt nevím jak to použít, aby to rotovalo po zmačknutí tlačítka Hrát a skončilo po pěti protočení částky v label.
Když to roztočím, tak se točí stále do kola.
Prosím pomoc s úpravou kódu.

V programování jsem začátečník a moc toho neumím.