TimeAndDate1.Hour := WORD_TO_UINT(DD.HH);
TimeAndDate1.Minute := WORD_TO_UINT(DD.MN);
TimeAndDate1.Second := WORD_TO_UINT(DD.SC);
TimeAndDate1.Year :=WORD_TO_UINT(DD.YY);
TimeAndDate1.Month :=WORD_TO_UINT(DD.MM);
TimeAndDate1.Day :=WORD_TO_UINT(DD.SS);
GetTime (SystemTime:=Sys_Time , TimeDate:= TimeAndDate1);