Отстает секундомер

[hon]

Вот сделал секундомер. Запустил и думаю: что-то медленно секунды идут. Взял телефон и одновременно запустил. Когда на компьютере было ~10 секунд, на телефоне ~20. Процессор сильно не грузится (меньше 0%).
Где ошибка или недочет?

unit super_sek_;

interface

uses
  Windows, SysUtils, Forms,
  ExtCtrls, StdCtrls, Dialogs, Controls, Classes;

type
  TForm1 = class(TForm)
    ButtonSS: TButton;
    ButtonReset: TButton;
    LabelMin: TLabel;
    LabelSec: TLabel;
    LabelDsec: TLabel;
    LabelDvoet1: TLabel;
    LabelTochka: TLabel;
    Shape1: TShape;
    Timer1: TTimer;
    LabelHour: TLabel;
    LabelDvoet2: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure ButtonSSClick(Sender: TObject);
    procedure ButtonResetClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

var
  hour: integer;     // часы
  min:  integer;     // минуты
  sec:  integer;     // секунды
  dsec: integer;     // сотые секунды

// сигнал от таймера
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(dsec);
  if dsec < 100 then
  begin
    if dsec < 10
        then LabelDsec.Caption := '0' + IntToStr(dsec)
        else LabelDsec.Caption := IntToStr(dsec);
    exit;
  end
  else
  // надо увеличить кол-во секунд
  dsec := 0;
  labelDsec.Caption := '00';

  sec := sec + 1;
  if sec < 60 then
    begin
      if sec < 10 then
        LabelSec.Caption := '0' + IntToStr(sec)
      else
        LabelSec.Caption := IntToStr(sec);
      exit;  // кол-во минут увеличивать не надо
    end

  else
    // надо увеличить минуты
    sec :=0;
    labelMin.Caption := '00';

    min := min + 1;

  if min < 60 then
    begin
      if min < 10 then
        LabelMin.Caption := '0' + IntToStr(sec)
      else
        LabelMin.Caption := IntToStr(sec);
      exit;  // кол-во часов увеличивать не надо
    end
  else
    // надо увеличить часы
    min :=0;
    labelHour.Caption := '00';

    hour := hour + 1;

    if hour < 99 then
       if hour < 10 then
            LabelHour.Caption := '0' + IntToStr(min)
       else
            LabelHour.Caption := IntToStr(min)
    else // максимальный интервал - 99 мин
        begin
           Timer1.Enabled := False; // остановить секундомер
           ShowMessage('Измерить интервал больше 59:59.99 нельзя.');
           ButtonSS.Caption := 'Пуск';
           Form1.ButtonResetClick(sender);
        end;
end;

// щелчок на кнопке Пуск/Стоп
procedure TForm1.ButtonSSClick(Sender: TObject);
begin
  if Timer1.Enabled then
  begin
     // счет времени
     Timer1.Enabled := False; // остановить секундомер
     ButtonSS.Caption := 'Пуск';
     ButtonReset.SetFocus;
  end
  else begin
     // секундомер стоит
     Timer1.Enabled := True;    // пуск таймера
     ButtonSS.Caption := 'Стоп';
  end;
end;

// щелчок на кнопке Сброс
procedure TForm1.ButtonResetClick(Sender: TObject);
begin
   hour:=0;
   min := 0;
   sec := 0;
   dsec := 0;
   // индикатор в исходное состояние
   LabelDsec.Caption := '00';
   LabelSec.Caption := '00';
   LabelMin.Caption := '00';
   LabelHour.Caption := '00';
   if NOT Timer1.Enabled then ButtonSS.SetFocus;
end;

// обработка события OnCreate
procedure TForm1.FormCreate(Sender: TObject);
begin
   min  := 0;
   sec  := 0;
   dsec := 0;
   Timer1.Enabled  := False;
   Timer1.Interval := 10; // сигнал от таймера через 0,01 сек
end;

end.

Форма в прикреплении, т.к. макс. размер сообщения 5000 знаков.

[Аватар]

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

[hon]

Сообщение от Аватар

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

как? пример, пожалуйста.

[Аватар]

procedure TForm1.FormCreate(Sender: TObject);
begin
  lTime:=Now;
  Label1.Caption:=Format('Старт: %s',[FormatDateTime('hh:nn:ss',lTime)]);
  Timer1.Interval:=200;  //здесь сам задай необходимый интервал
  Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label2.Caption:=Format('Прошло: %s',[FormatDateTime('hh:nn:ss',Now-lTime)]);
end;

[JUDAS]

hon попробуй этот вариант

var
 Start : TDateTime;

procedure TForm1.Timer1Timer(Sender: TObject);
var S : string;
begin
  S:= FormatDateTime('hh:nn:ss:zzz',Now - Start);
  LabelHour.Caption:=Copy(S,1,2);
  LabelMin.Caption:=Copy(S,4,2);
  LabelSec.Caption:=Copy(S,7,2);
  LabelDsec.Caption:=Copy(S,10,3);
end;

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

[_Dmitry]

Дельфийский таймер будет отставать в любом случае.
Для точного отсчета времени используйте мультимедийный таймер.
Тема уже рассматривалась: http://www.programmersforum.ru/showthread.php?t=12132
И даже был пример сравнения таймеров: http://www.programmersforum.ru/showp...6&postcount=29

[JUDAS]

Дельфийский таймер будет отставать в любом случае.

в случае с кодом подобным Аватар и моему - никакого отсавания не будет.
Наши с Аватаром коды не считают "тики процессора", которые зависят от производительности ОС в определённый момент времени, а считаем системное время.
Если даже произойдёт заторможенность в определённый момент, то в следующем тике будет отработана разница между Now и значением Start которое запоминается при старте )

[Пепел Феникса]

Дельфийский таймер будет отставать в любом случае.

ну да, конечно.
учитывая что Дельфийский не более чем обертка над АПИшным.

первое что бросилось в глаза, у вас код громоздок, подумайте сами, успевает ли он выполнится за ваш интервал?(+учитывая что после выполнения кода таймера у вас будет перерисовка лейблов с новыми значениями(а то и всей формы, я не знаю как это у VCL реализовано))
рано или поздно будет отставание.

да и кстати, пожалуй GetTickCount тут достаточно будет.