[Medio]Criando um Cronômetro

Declare uma variavel na sessão Private:

Código:

---

 
Tempo: TDateTime;

---

Pra quem nao sabe declara a variavel:

Vc vai no code e coloka:

Código:

---

tempo: TDateTime;

---

Em baixo de:

Código:

---

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:

Código:

---

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

---

7º No OnClick do Botão digite:

Código:

---

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