Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i-1;
label1.caption:='Время осталось: '+inttostr(i);
if i=0 then showmessage('Время вышло') else timer1.enabled:=true;
end;
У таймера свойство interval на 1000
Переменная i объявлена в главном var как integer;