В примере есть такое:
(*Текущее время*)
Sys_DateTime.Day :=0;
Sys_DateTime.DayOfWeek :=0;
Sys_DateTime.dwHighMsec :=0;
Sys_DateTime.dwLowMSecs :=0;
Sys_DateTime.Milliseconds :=0;
Sys_DateTime.Minute :=0;
Sys_DateTime.Second :=0;
Sys_DateTime.Hour :=0;
Sys_DateTime.Year :=0;
Sys_DateTime.Month :=0;
Sys_time.ulHigh :=0;
Sys_time.ulLow :=0;
GetTime (SystemTime:=Sys_Time , TimeDate:= Sys_DateTime);
Обнулять переменные надо.
Визуально в блоке GetTime видно что время не меняется.