3. Простой "Таймер" (Timer) (Delphi)

Данная программа хорошо продемонстрирует работу компонента Timer. 

Кидаем на форму компоненты Label, Edit, Button (две штуки). По желанию их можно переименовать.

Затем размещаем на форме компонент Timer

В инспекторе объектов, нужно отключить таймер, изменив свойство Enabled на значение False.

Интервал должен быть 1000  (1000 = 1 секунда).

В коде первой кнопки (ПУСК) переменной time будет присваиваться значение из Edit'а, затем текст Label'a будет меняться на значение переменной time и в конце будет запускаться таймер.

procedure TForm1.Button1Click(Sender: TObject);

begin

  time:=strtoint(edit1.Text);

  label1.Caption:=inttostr(time);

  timer1.Enabled:=true

end;

Вторая кнопка (Пауза) будет включать и выключать таймер. Логика такая если таймер выключен, то он включается, иначе выключается. Всё просто :)

procedure TForm1.Button2Click(Sender: TObject);

begin

if timer1.Enabled=false then

  timer1.Enabled:=true

else

  timer1.Enabled:=false

end;

В таймере если переменная time больше 0, тогда значение переменной time будет уменьшаться на 1 и выводиться на Label, а когда time становиться равным нулю, тогда отключается таймер и выводиться сообщение "Время кончилось".

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if time>0 then

begin

  time:=time-1;

  label1.Caption:=inttostr(time);

end

else

begin

  timer1.Enabled:=False;

  showmessage('Время кончилось');

end;