Системное время преобразовать в DATE

[lara197a]

TimeAndDate.Day :=0;
TimeAndDate.DayOfWeek :=0;
TimeAndDate.dwHighMsec :=0;
TimeAndDate.dwLowMSecs :=0;
TimeAndDate.Milliseconds :=0;
TimeAndDate.Minute :=0;
TimeAndDate.Second :=0;
TimeAndDate.Hour :=0;
TimeAndDate.Year :=0;
TimeAndDate.Month :=0;

Sys_time.ulHigh :=0;
Sys_time.ulLow :=0;


GetTime (SystemTime:=Sys_Time , TimeDate:= TimeAndDate);


(*а тут получаем текущее время к примеру в виде BYTE или как еще нужно*)
Day:=TimeAndDate.Day;
DayOfWeek:=TimeAndDate.DayOfWeek;
Second:=TimeAndDate.Second;
Minute:=TimeAndDate.Minute;
Hour:=TimeAndDate.Hour;
Month:=TimeAndDate.Month;
Year:=TimeAndDate.Year;