time:integer;

time:= 30; {Тут указываем время, в моём случае 30 сек}

if time = 0 then begin
      tImer1.Enabled:=False;
   Application.MessageBox('Время закончилось', 'Инфа', MB_OK + MB_ICONINFORMATION);
{Тут ваш код}
   end
   else
   begin
     time:=time-1;
     Label1.Caption:=IntToStr(time);
   end;