Вопрос по созданию секундомера

[Evgenii]

Как можно сделать секундомер, но чтобы он работал не как обычный, а по циклу-считал до 60й секунды и начинал заново?

[Arigato]

Используйте компонент TTimer (вкладка System), а дальше прописывайте обработчик события OnTimer нужным для Вас образом.

[Evgenii]

мне нужно чтобы на форме небыло никаких компонентов связанных с секундомером. Он просто должен запускаться при нажатии определенной кнопки
хотя этот компонент невидно на форме при запуске. А как для него прописать обработчик собития?

У вас кнопка "Правка" не видна?
Или трудно догадаться о ее назначении?

[Jeni]

TTimer - это невизуальный компонент, его не видно на форме во время работы.

А как для него прописать обработчик собития?
Дважды щелкни по нему и пиши.

[Evgenii]

а что нужно писать? как получить значения которые он выдает?

[Terran]

Вот вам кодеГ:

Var
Hour: Integer;
Min: Integer;
Sec: Integer;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Hour:=0;
Min:=0;
Sec:=0;
End;
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
Form1.Label1.Caption:='0'+IntToStr(Sec)
Else
Form1.Label1.Caption:=IntToStr(Sec);
If Min < 10 Then
Form1.Label2.Caption:='0'+IntToStr(Min)
Else
Form1.Label2.Caption:=IntToStr(Min);
If Hour < 10 Then
Form1.Label3.Caption:='0'+IntToStr(Hour)
Else
Form1.Label3.Caption:=IntToStr(Hour);
End;

Из него сможете сделать всё что нужно.

[Evgenii]

Спасибо Terran!