Zde je tedy zdrojový kód:

.
.
.
private
{ Private declarations }
procedure WMTimeChange(var Msg: TMessage); message WM_TIMECHANGE;
.
.
.

procedure TForm1.WMTimeChange(var Msg: TMessage);
begin
inherited;
ShowMessage('Došlo ke změně systémového času/data.');
end;