用SQL从服务器获取届时间，怎样更新到本机

用SQL从服务器获取到时间，怎样更新到本机？
例如：用SQL从服务器获取到时间 2013-03-03 00:01:30.180

怎样更新本地日期和时间？
------解决方案--------------------

procedure TfmMain.SetSystemDateTime;

var

  ServerDateTime: TDateTime;

  ServerSystemTime: TSystemTime;

begin

  QryTemp.Close;

  QryTemp.CommandText := ' SELECT SYSDATE FROM DUAL ';//从数据库获取到数据库的时间

  QryTemp.Open;

  ServerDateTime := QryTemp.FieldByName('SYSDATE').AsDateTime;

  DateTimeToSystemTime(ServerDateTime, ServerSystemTime);

  SetLocalTime(ServerSystemTime);

end;