[Medio]Criando um Cronômetro

[FusioN]

Declare uma variavel na sessão Private:

  
Tempo: TDateTime;

Pra quem nao sabe declara a variavel:

Vc vai no code e coloka:

tempo: TDateTime;

Em baixo de:

var
Form1: TForm1;

2º Coloque um TBitBtn, um TTimer e um TLabel no form;

3º coloque a propriedade Caption do TBitBtn como Iniciar;

4º coloque a proprieade Enabled do TTimer como false;

5º coloque a propriedade Interval do TTimer como 1;

6º No Evento OnTimer do TTimer e digite:

label1.caption:=FormatDateTime('HH:MM:SS:ZZZ',Time - tempo);

7º No OnClick do Botão digite:

if not timer1.enabled then
tempo:=time;
timer1.enabled:=not timer1.enabled;
if bitbtn1.caption='Parar' then
bitbtn1.caption:='Iniciar'
else
bitbtn1.caption:='Parar';

Creditos: vulckanoO

Fonte: Pro Code