Как узнать изменение системной даты

Вот как это можно сделать:

type
    TForm1 = class(TForm)
    private
      procedure WMTimeChange(var Msg: TMessage) ; message WM_TIMECHANGE;
    end;

 var
    Form1: TForm1;

 implementation
 {$R *.DFM}

 procedure TForm1.WMTimeChange(var Msg: TMessage) ;
 begin
    inherited;
    ShowMessage('Дата / время было изменено!') ;
 end;