Fórum Alterar Data e Hora do Sistema #285926

Alguem consegue entender o que há de errado nesta Procedure?

As vezes funciona mas na maioria não acontece nada.

[uso D6 e XP]

A função original está neste tópico: http://forum.clubedelphi.net/viewtopic.php?t=53473&highlight=setsystemtime

---------------------------------------------------------------------------------
procedure TfrmBemVindo.Crgr_Dt;
var
SystemTime : TSystemTime;
Dia1, Mes1, Ano1, Hora1, Min1, Sec1, Mil1: Integer;
Dia, Mes, Ano, Hora, Min, Sec, Mil: Word;
begin
//------>Captura a data do Editmsk
Ano1 := StrToInt(Copy(mskData.Text,1,2));
Mes1 := StrToInt(Copy(mskData.Text,4,2));
Dia1 := StrToInt(Copy(mskData.Text,7,4));


//------>Transforma o valor inteiro em Word
Ano := Ano1;
Mes := Mes1;
Dia := Dia1;



//------>Captura a hora do Editmsk
Hora1 := StrToInt(Copy(mskHora.Text,1,2)) + 3;
Min1 := StrToInt(Copy(mskHora.Text,4,2));
Sec1 := 00;
Mil1 := 00;

//------>Transforma o valor inteiro em Word
Min := Min1;
Hora := Hora1;
Sec := Sec1;
Mil := Mil1;



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);
end;

-----------------------------------------------------------------------------------

Agradeço a cooperação