Настройка таймера в Delphi

[The riddle]

Помогите пожалуйста с настройкой таймера.Просмотрела все темы про обратный отсчет здесь,но похожего не нашлаТаймер должен быть на 20 минут и отображаться в названии формы.

[ОДИНОЧЕСТВО В СЕТИ]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ss=0 then begin ss:=60; mm:=mm-1;end;
ss:=ss-1;
form1.Caption:=inttostr(mm)+':'+inttostr(ss);
 if (mm=0) and (ss=0) then begin
  timer1.Enabled:=false;
  showmessage('та-дам');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
mm:=19;
ss:=59;
end;

[Adamrus]

в чем проблема?
фиксируешь время запуска Now в своей переменной
у таймера время на событие выставляешь в 1000 мс, и пишешь вычет по одой секунде из твоей переменной, где сохранил Now, и проверку не равна ли она уже нулю.

[The riddle]

Одиночество в сети,большое спасибо),пока ждала ответа,у самой кое-что получилось,но ваш вариант проще,но у меня не получается его совместить с программой(

[ОДИНОЧЕСТВО В СЕТИ]

но у меня не получается его совместить с программой

а я то чем помочь могу - не зная- что и где у вас используется, извините ,телепатия ,с утра, как-то отключена)

[The riddle]

................................... .......................

[The riddle]

Одиночество в сети,ваш код не работает(вместо нужных цифр высвечивается совсем не то(