Definisi promenjivu "Vreme : integer" u npr. public sekciji forme. Stavis na formu TTimer i jedan button. Za button OnClick postavi:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
Vreme := GetTickCount;
Timer1.Enabled := true;
end;
Postavis Timer1.Interval na 1000 (1 sekunda) i Enabled = False, pa na OnTimer event postavis kod:
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
Var Razlika : dword;
sati, minuti, sekunde : integer;
begin
Razlika := 7000 - ((GetTickCount - Vreme) div 1000);
Sati := Razlika div 3600;
Minuti := (Razlika - (Sati * 3600)) div 60;
Sekunde := (Razlika - (Sati*3600) - (Minuti*60));
Caption := Format('%d : %d : %d', [Sati,Minuti,Sekunde]);
if Razlika <= 0 then Timer1.Enabled := false;
end;
Onih "7000" gore predstavljaju pocetnu vrednost za odbrojavanje. U tvom primeru tu bi pisalo "20". Ostaje da prilagodis kod nekoj nameni.