控件 button1 開始計時按鈕 
button2 置零按鈕 
edit1 和timer1結合，顯示從比賽開始到現在的時間，時刻變化 
timer1 用來計時，interval=10 
memo1 用來存儲每個人的時間的記錄 

unit Unit1; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, ExtCtrls, StdCtrls; 

type 
TForm1 = class(TForm) 
Memo1: TMemo; 
Button1: TButton; 
Edit1: TEdit; 
Button2: TButton; 
Timer1: TTimer; 
procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure FormShow(Sender: TObject); 
procedure Timer1Timer(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 

var 
Form1: TForm1; 
i:integer; 
time:tdatetime; 
s:string; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject);//計時開始按鈕 
begin 
if i=0 then 
begin 
i:=1; 
time:=now; 
s:='00:00:00 000'; 
timer1.Enabled :=true; 
exit; 
end; 
s:= FormatDateTime('hh:nn:ss:zzz',now-time); 
memo1.Lines.Add(s); 

end; 

procedure TForm1.Button2Click(Sender: TObject); //置零按鈕 
begin 
timer1.Enabled :=false; 
s:='00:00:00 000'; 
memo1.Clear; 
edit1.text:='00:00:00 000'; 
i:=0;//判斷是否是開始計時的標志 i=1 是在計時，i=0 沒有開始計時 
end; 

procedure TForm1.FormShow(Sender: TObject); 
begin 
i:=0; 
edit1.text:='00:00:00 000'; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
edit1.Text:=FormatDateTime('hh:nn:ss:zzz',now-time); 
end; 

end.