TTimer zu schnell?

[TurboMagic]

Hallo,

in einem D12.1 basierten VCL Programm gibt's das komische von einem Anwender gemeldete
Phänomen, dass eine Fehlermeldung erscheint, die nur dann erscheinen soll, wenn jemand
die Systemzeit zurückstellt. Der Anwender hat das bestimmt nicht getan.

Hier meine Initialisierung des betreffenden Timers, extra auf 1 min. + 50ms, für den Fall
dass das System mal beschäftigt ist bzw. weil ja TTimer nicht so hoch präzise ist.

Delphi-Quellcode:

procedure TMyClass.InitTimeManipulationCheckTimer;
begin
  if not Assigned(FTimeManipulationCheck) then
  begin
    FTimeManipulationCheck          := TTimer.Create(nil);
    FTimeManipulationCheck.Interval := 60050; // 1 min. 50 ms
    FTimeManipulationCheck.OnTimer  := OnCheckTimeManipulation;
  end;

  FTimeManipulationCheck.Enabled := true;
  FLastCheckTime                 := now;
end;

FLastCheckTime ist natüprlich ein TDateTime Wert.

Hier das Timer Event:

Delphi-Quellcode:

procedure TMyClass.OnCheckTimeManipulation(Sender: TObject);
var
  Difference : Double;
begin
  Difference := Now-FLastCheckTime;

  // Wenn die Zeit nicht um mindestens 1 min. fortgeschritten ist wurde
  // sie manipuliert!
  if not (Difference >= System.DateUtils.OneMinute) then
  begin
    log.Send(LevelRed, cCategory,
             'Systemzeit wurde manipuliert (oder Zeitumstellung): ' +
             'Alt: ' + FLastCheckTime.ToString + ' Neu: ' + now.ToString);

    MessageDlg(rTimeManipulation, mtError, [mbOK], -1);
    Application.Terminate;
  end;

  FLastCheckTime := now;
end;

Ich verstehe nicht wie sonst die Meldung kommen kann. Das kann doch eigentlich
nur passieren, wenn der Timer nach < 1 min. das Event aufruft, was die 50 ms
zur 1 min. Interval Zeit eigentlich verhindern sollen. Kann denn der Timer so
unpräzise zu schnell werden?