Delphi - cambiar la fecha del sistema

Hola amigos:
Estoy tratando de cambair la fecha del sistema, pero al usar setsystemdatetime() me cambia la hora y me pone en 00:00, como puedo cambiar o existe otras funciones para hacer este proceso.

gracias

Sacado de esta página:

http://www.elrinconcito.com/delphi/trucos/IApi3.htm

procedure TForm1.Button1Click(Sender: TObject);

var
fecha:TSystemTime;
begin
fecha.wyear:=2000;
fecha.wMonth:=12;
fecha.wDayofWeek:=1;
fecha.wDay:=31;
fecha.wHour:=15;
Fecha.wMinute:=30;
Fecha.wSecond:=0;
Fecha.wMilliseconds:=0;
if not SetSystemTime(Fecha) then
showmessage('Error de cambio de fecha-hora');
end;

Suerte. Virum