[CFPA86]

Hola foristas.
Tengo el siguiente codigo.

var
FecDada : TdateTime;
// HorDada : TSystemTime;
HorDada : TDateTime;
begin
FecDada := StrToDate(Efecha.Text);
HorDada := StrToTime(Ehora.Text);
ProCamFec(FecDada, HorDada);
end;

Procedure ProCamFec(Fecha: TDateTime; Hor : TDateTime);
var
FecSys: TSystemTime;
nA, nM, nD, nHH, nMM, nSS, nMS : Word;
begin
DecodeDate(Fecha, nA, nM, nD);
GetLocalTime(FecSys);
FecSys.wYear := nA;
FecSys.wMonth := nM;
FecSys.wDay := nD;
DecodeTime(Hor, nHH, nMM, nSS, nMs);
FecSys.wHour := nHH;
FecSys.wMinute := nMM;
FecSys.wSecond := nSS;
FecSys.wMilliseconds := nMS;
SetLocalTime(FecSys);
end;

El cambia la fecha inmediatamente pero en la hora se tarda Aprox 45 Seg. en cambiarla o mostrarla en la barra de tareas, alguien sabe decirme el pporque de esto, me gustaria que lo hiciera como la fecha en forma inmediata.

Alguna sugerencia si es el caso se los agradezco.