[rgstuamigo]

Bueno es cuestion de hacer una consulta SQL al servidor de Oracle consultando la hora del servidor y luego usar la API SetSystemTime para cambiar la hora de la maquina cliente..
En este hilo hay un ejemplo de como de cambiar la hora desde Delphi, aunque aqui va otro ejemplo pero en éste caso uso la API SetLocalTime

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
SystemTime: TSystemTime;
Newtime, NewDate: string;
begin
Newtime:='12:00:00 ';
NewDate:='01.01.2010 ';
DateTimeToSystemTime(StrToDate(NewDate)+StrToTime(newtime),SystemTime);
SetLocalTime(SystemTime);
// Indicarle a Windows el cambio
PostMessage(HWND_BROADCAST,WM_TIMECHANGE,0,0);
end;

Saludos...