Cambiar solo la hora en Delphi

[JuanOrtega]

Hola estoy tratando de cambiar solo la hora en delphi , me estoy basando en este codigo :

Código Delphi [-]
var
 MyNewTime: _SYSTEMTIME;
begin
// primero llenamos la estructura
 with MyNewTime do
  begin
   wYear        := 2004; // año
   wMonth       := 8;    // agosto
   wDayOfWeek   := 5;    // jueves
   wDay         := 19;   // día del mes
   wHour        := 01;   // hora
   wMinute      := 55;   // minutos
   wSecond      := 00;   // segundos
   wMilliseconds:= 00;   // milisegundos
  end;
// luego la aplicamos
 SetSystemTime(MyNewTime);

A lo que llegue a esto :

Código Delphi [-]
program test;

{$APPTYPE CONSOLE}
{$R *.res}


uses
  System.SysUtils, ShellApi, Windows,Winapi.Messages;

function change_time():string;
var
MyNewTime: _SYSTEMTIME;
begin

with MyNewTime do
begin
wHour := 1;
end;
SetSystemTime(MyNewTime)
end;

begin
  try
    change_time();
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

El tema es que este codigo no me cambia la hora ni en modo normal ni como administrador , creo que los demas parametros son obligatorios pero yo solo quiero cambiar la hora del sistema no desconfigurar todo.

Nota : Estoy usando Delphi XE2 en Windows Seven

¿ Hay alguna forma de hacer lo que quiero ?