Timer в Delphi

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
var
  //Начальный момент времени.
  TimeStart : TDateTime = 0;
  //Учтённое время.
  TimeSum : TDateTime = 0;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  //Начальное показание времени.
  Label1.Caption := FormatDateTime('hh:nn:ss:zzz', TimeSum);
end;
 
//Обработка тиков таймера.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //Расчёт учтённого времени.
  TimeSum := Now - TimeStart;
  //Показываем учтённое время.
  Label1.Caption := FormatDateTime('hh:nn:ss:zzz', TimeSum);
end;
 
//Таймер: Запуск/Останов.
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Timer1.Enabled then begin //Останов.
    //Выключаем таймер.
    Timer1.Enabled := False;
    //Расчёт учтённого времени.
    TimeSum := Now - TimeStart;
  end else begin               //Запуск.
    //Сброс учтённого времени.
    TimeSum := 0;
    //Определяем начальный момент времени. Здесь он равен текущему моменту времени.
    TimeStart := Now;
    //Включаем таймер.
    Timer1.Enabled := True;
  end;
  //Показываем учтённое время.
  Label1.Caption := FormatDateTime('hh:nn:ss:zzz', TimeSum);
end;