要求跟秒表那样可以计时，只不过可能要记录几十天吧，我这个显示不正常。大家手头上有现成的代码，或者控件的帮下呗，先谢过了。

var
T1 : Tdatetime;
T2 : Tdatetime;
Tstr : boolean;
Tstp : boolean;
i : integer=1;
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Tstr then
begin
if i=1 then
begin
T1:=now;
i:=2;
end;
edit1.Text:=datetimetostr(now-T1+T2);
end;
if Tstp then
begin
T2:=strtodatetime(edit1.Text);
i:=1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Tstr:=true;
Tstp:=false;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Tstr:=false;
Tstp:=true;
end;

Delphi Demo里面有，自己去看吧。