alterar hora e data do sistema

var
SystemTime : TSystemTime;
Dia, Mes, Ano, Hora, Min, Sec, Mil: Word;

Passar as informações para as variaveis Dia, Mes, Ano, Hora, Min, Sec, Mil: Word;


SystemTime.wYear := Ano;
SystemTime.wMonth := Mes;
SystemTime.wDay := Dia;
SystemTime.wHour := Hora;
SystemTime.wMinute := Min;
SystemTime.wSecond := Sec;
SystemTime.wMilliseconds := Mil;

Modificar a data / hora
SetSystemTime (SystemTime);