Робота с таймером

[Artruman]

Подскажите как организовать вывод таймера на форму.

Пользователю дано n-oe время для выполнения задания,но надо чтобы он видел на форме обратный отсчет или просто текущее показание таймера...подскажите пожалуйста.

[koma_grusha]

кинь на форму компонент Timer, в обработчике каждую секунду, уменьшай свое n на единицу, и отображай на чьем нибудь Caption

[Terran]

Вот пример таймера. Изменив этот код можно сделать точно так же таймер обратного отсчёта.

Var
Hour: Integer;
Min: Integer;
Sec: Integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Sec:=Sec+1;
If Sec = 60 Then
Begin
Min:=Min+1;
Sec:=0;
End;
If Min = 60 Then
Begin
Hour:=Hour+1;
Min:=0;
End;
If Hour = 24 Then
Hour:=0;
If Sec < 10 Then
Label3.Caption:='0'+IntToStr(Sec)
Else
Label3.Caption:=IntToStr(Sec);
If Min < 10 Then
Label2.Caption:='0'+IntToStr(Min)
Else
Label2.Caption:=IntToStr(Min);
If Hour < 10 Then
Label1.Caption:='0'+IntToStr(Hour)
Else
Label1.Caption:=IntToStr(Hour);
End;