Detectar Modificação De Hora Windows

[abraao895]

Bom dia pessoal, estou tentando implementar um detector de mudança de horário para que não dê problema na emissão de cupom se o usuário trocar a mesma. Consegui esse source:

 

 protected
     FWMTimeChangeTimeStamp: TDateTime;
     procedure WMTimeChange(var Msg: TMessage); message WM_TIMECHANGE;

//----

procedure TFormPdv.WMTimeChange(var Msg: TMessage);
begin
  inherited;
  if Now-FWMTimeChangeTimeStamp>0.01 then //Aproximadamente 15 minutos
  begin
    ShowMessage('Modificação de horário do computador detectado!');
    FWMTimeChangeTimeStamp := Now;
  end;
end;

 

Mas quando fui testar essa procedure é chamada duas vezes quando é realizada a modificação do horário, inviabilizando o uso da mesma em um processo que tenho aqui.

Alguém teria alguma outra idéia de como eu poderia estar fazendo esse procedimento de detecção?

Desde já agradeço!

[EMBarbosa]

Veja: http://stackoverflow.com/questions/8746672/why-do-i-get-multiple-windows-messages-of-same-kind

[abraao895]

Beleza. Deu certo aqui.