Не обнуляется таймер почему-то...

[FleXik]

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=True;
  Form1.Button1.Enabled:=False;
  Form1.Button2.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label1.Caption:='00:00:00';
  Timer1.Enabled:=False;
  Form1.Button2.Enabled:=False;;
  Form1.Button1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TimerCount:=TimerCount + StrToDateTime('00:00:01');
  Label1.Caption:=FormatDateTime('hh:mm:ss', TimerCount);
end;

Когда нажимаю "Старт" (Button1) - таймер работает, когда нажимаю кнопку "Стоп" (Button2) - таймер останавливается и обнуляется, но, при повторном нажатии кнопки "Старт" (Button1) - таймер продолжает считать с того места на котором закончил вместо того чтобы начать с нуля, как правильно обнулить таймер?

[Stilet]

Label1.Caption:='00:00:00'; ты не забыл в ноль, а TimerCount в ноль не выставляешь.

TimerCount:=TimerCount + StrToDateTime('00:00:01');

Это шоза балет? Может вместо этого использовать функцию IncSecond() ?

[XE5]

Это шоза балет?

Думаю, лебединое озеро.

[FleXik]

Ответ: Добавить в конец кода кнопки "Старт" (Button1):

TimerCount :=  StrToDateTime('00:00:00');

Stilet, таких примеров с таймером очень мало, поэтому нагуглил что было, главное что нормально работает.

[Stilet]

Предлагаю такое:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses      dateutils,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var   tm:TDateTime;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

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

procedure TForm1.Label1Click(Sender: TObject);
begin
  if Timer1.Enabled then begin
   Timer1.Enabled:=false;
  end else begin
    tm:=EncodeTime(0,0,0,0);
   Timer1.Enabled:=True;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  tm:=IncSecond(tm);
  Label1.Caption:=FormatDateTime('hh:mm:ss',tm);
end;

end.

Это с потолка. Особо не проверял.

[FleXik]

Stilet, IncSecond тоже работает, спасибо