Как определить, изменилось ли системное время?

01.01.2007

Следующий пример демонстрирует обработку сообщения WM_TIMECHANGE. Приложение, которое изменяет системное время, посылает сообщение WM_TIMECHANGE всем окнам верхнего уровня.

type 
TForm1 = class(TForm) 
private 
{ Private declarations } 
  procedure WMTIMECHANGE(var Message: TWMTIMECHANGE); message WM_TIMECHANGE; 
public 
{ Public declarations } 
end; 
 
var 
Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.WMTIMECHANGE(var Message: TWMTIMECHANGE); 
begin 
  Form1.Caption := 'Time Changed'; 
end;

Взято из https://forum.sources.ru