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;
begin
ChangeSysTime(StrToTime('01:39:10 pm'));
end.
Saludos