title: Delphi Countdown timer
body: <p>I am trying to make a countdown timer, the idea is to set the time in text edit property and after i click set timer(button), that time to be sent to Label, which will then start the countdown to 0. I have gotten to this part, but i cant figure out a way to make seconds countdown, If any of you guys can help I would appreciate it.</p>
  
  <p>I tried this from an example I found online but it didnt work because this is Firemonkey application.</p>
  
  <pre><code>dec(TotalTime); {decrement the total time counter}
  
  
  // Timer code..
  procedure TForm1.ButtonSetTimerClick(Sender: TObject);
  var
   GetTime : TDateTime;
  begin
   Timer3.Enabled := True;
   Label11.Text := Edit1.Text;
   ButtonSetTimer.Enabled := False;
   Edit1.Enabled := False;
   GetTime := StrToTime(Edit1.Text);
  
  end;
  
  procedure TForm1.ButtonStopTimerClick(Sender: TObject);
  begin
   Timer3.Enabled := False;
   ButtonSetTimer.Enabled := True;
   Edit1.Enabled := True;
  end;
  
  procedure TForm1.Timer3Timer(Sender: TObject);
  var
   GetTime : TDateTime;
   Hour, Min, Sec, MSec: Word;
  begin
  
   DecodeTime(GetTime, Hour, Min, Sec, Msec);
   Label11.Text := TimeToStr(GetTime);
   Label11.Text := IntToStr(Hour)  + ':'+ IntToStr(Min) + ':'+ IntToStr(Sec);
   Label11.Text := Format('%2.2u:%2.2u:%2.2u',[Hour,Min,Sec]);
  end;
  </code></pre>
  
  <p>Cheers.</p>