Создаём секундомер [Как сделать часы, минуты, секунды.]

[саша40]

Короче щас дадющка-программист вам всё раскажет :
Автор, у тебя идут цыферки просто, а чтобы они перешли в "Часы:Минуты:Секунды" надо:
Пишишь в var(где Form: TForm):

i, i1: Dooble; //переменые типа, того что и real

Пишишь в таймер такой код:

begin
i:=i+1;
i1:=i / (24*3600); //делим переменую на сутки
{так как в сутках 24 часа, а в часе 3600 секунд, в этом случае у нас i-это секунды}
Label1.Caption:=FormatDateTime('hh:mm:ss',i1); //приобразуем переменую в //формат
//готов таймер
end;

У таймера свойство Enabled на false.
Две кнопки(Старт и Стоп).
Первая кнопка:

I:=0; 
Timer1.Enabled:=true;

Вторая кнопка:

Timer1.Enabled:=false;

P.S. Незабудь про спасибо!

[vmilyoshin]

Всё верно. Только тип переменных double.