[Kailon]

Код:

uses
  DateUtils;

var
  MyTime: TTime;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyTime := StrToTime('00:00:30');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  MyTime := IncSecond(MyTime, -1);
  lblTime.Caption := TimeToStr(MyTime);
end;

Как остановить отсчет по достижению 00:00:00? Это тебе домашнее задание