用Delphi实现的秒表程序源码

/*
工程文件
*/
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

/*
单元文件
*/
unit Unit1;

interface

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

type
TForm1 = class(TForm)
lbl1: TLabel;
btn1: TButton;
btn2: TButton;
btn3: TButton;
tmr1: TTimer;
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure tmr1Timer(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
dtStar