Membuat Stopwatch Sederhana Dengan Delphi

Langsung Deh.. Gak Usah Banyak Omong Kosong!!
Pertama, Desain Form Anda Seperti dibawah ini :

Sekedar Info :
Beberapa COmponent yang digunakan adalah :
3 Buah Edit
4 Buah Label
2 Buah Button
1 Buah Timer
Caranya, Letakkan Kode dibawah ini Pada Masing-Masing eventnya!!

//Event Form Create
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=1000;
button1.Caption:='Start';
button2.Caption:='Reset';
end;

//Event Jika Form DiJalankan
procedure TForm1.FormShow(Sender: TObject);
begin
edit1.Text:='00:00:00';
edit2.Text:='00:00:00';
edit3.Text:='00:00';
end;

//Event Untuk Timer
procedure TForm1.Timer1Timer(Sender: TObject);
var
slama:string;
lama:double;
begin
if button1.Caption='Stop' then
begin
akhir:=time;
edit2.Text:=timetostr(akhir);
lama:=(akhir-awal)*1000;
Str(Lama:12:2,SLama);
Edit3.Text:=SLama;
end;
end;

//Event Jika Tombol Start diklik
procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption='Start' then
begin
awal:=time;
Edit1.Text:=TimeToStr(Time);
Button1.Caption:='Stop';
end
else if Button1.Caption='Stop' then
Button1.Caption:='Selesai'
else Application.Terminate;
end;

//Event Jika Tombol Reset diklik
procedure TForm1.Button2Click(Sender: TObject);
begin
FormCreate(sender); //memanggil kembali form create
FormShow(sender); //memanggil kembali form show
end;

Hasilnya Seperti Ini :

Yang Mau Download Silahkan disini!!