Odpočítávání + Gauge – Delphi – Fórum – Programujte.com

Dobrý den, mám takovej problém a potřeboval bych jestli by mi někdo nepomohl:
Mám Edit a Gauge a Button. Do toho editu napíšu čas (třeba jenom ve vteřinách) a potřebuju, aby po kliknutí na button se mi začal odpočítávat ten čas (ty vteřiny) a aby se mi průběh, zbývající šas ukazoval na tom Gauge. Skoušel sem to a nevím jak na t (a nefunguje to) :

var MAX: Integer;

      PRUBEH: Integer;



procedure TK.ZacniOdpocitavatClick(Sender: TObject);

begin

  TimerOdpocitavac.Enabled := True

  PRUBEH := Edit1.Text;	

  MAX := Edit1.Text; 

  Gauge1.MaxValue := MAX;

end;



procedure TK.Timer1Timer(Sender: TObject);

begin

  // jak odečíst od proměnné průběh jednu vteřinu?

  Gauge1.Position := PRUBEH

end;

Použij Delfíní funkci:
strtoint - na převod z textu na číslo
a pak neni potreba -Max-, staci jen -Prubeh-

Vnitrnosti Timeru:

begin

dec(prubeh);

Position := prubeh;

end;