Возрастающий таймер ( Delphi 7)

[DarkMorfius]

Возможно ли сделать возрастающий таймер? В интернете нашел только про убывающий и сделать его легко. А вот возрастающий как?
Кто может объяснить как его правильно сделать и можно ли вообще его сделать ?!

[Аватар]

Секундомер, что-ли? Запомнить GetTickCount при старте, а потом вычислять разницу между текущим и запомненным GetTickCount

[newerow1989]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  t0,dt:TDateTime;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Timer1.Enabled:=false;
   Timer1.Interval:=10;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Timer1.Enabled:=true;
   t0:=Now;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   dt:=Now-t0;
   Label1.Caption:=FormatDateTime('hh:nn:ss,zzz',dt);
end;

end.

[DarkMorfius]

Большое спасибо ребят!

[newerow1989]

[DarkMorfius]

Вопрос
а как обнулить таймер?

[DarkMorfius]

В интернете нашел нерабочий способ...

procedure TForm1.Button1Click(Sender: TObject);
begin;
TimeStart:=Now;
tick:=0;
end;

[newerow1989]

Вторую кнопку создать и прописать

Label1.Caption:='00:00:00,000';
Timer1.Enabled:=false;

[DarkMorfius]

Если бы не вы я бы еще на сайтах "пролазил" в поиске ответа... Большое вам спасибо newerow1989

[newerow1989]