[ecfisa]

Hola Lepuke.

Tampoco me queda en claro la finalidad... Pero intentá de este modo:

Código Delphi [-]
program test;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

procedure ChangeSysTime(const aTime: TDateTime);
var
  SystemTime: TSystemTime;
begin
  DateTimeToSystemTime(Date + aTime, SystemTime);
  SetLocalTime(SystemTime);
end;

// main
begin
  ChangeSysTime(StrToTime('01:39:10 pm'));
end.

Saludos