让程序运行时能服务端的时间而改变本地时间

在Form上放个TTimer

procedure TFrmMain.tmr2Timer(Sender: TObject);
var
  systime : _SYSTEMTIME;
  qryTmp:TADOQuery;
begin
  qryTmp:=TADOQuery.Create(Self);
  qryTmp.Connection:=DMMain.connDatabase;
  qryTmp.SQL.Clear;
  qryTmp.SQL.Text:='select datepart(year,getdate()) as year,'+
    'datepart(month,getdate()) as month,'+
    'datepart(weekday,getdate()) as weekday,'+
    'datepart(day,getdate()) as day,'+
    'datepart(Hour,getdate()) as hour,'+
    'datepart(minute,getdate()) as minute,'+
    'datepart(second,getdate()) as second,'+
    'datepart(millisecond,getdate()) as millisecond';
      qryTmp.Open;
      systime.wYear := qryTmp.fieldbyname('year').AsInteger;  
      systime.wMonth := qryTmp.fieldbyname('month').AsInteger;
      systime.wDayOfWeek :=qryTmp.fieldbyname('weekday').AsInteger;
      systime.wDay := qryTmp.fieldbyname('day').AsInteger;
      systime.wHour := qryTmp.fieldbyname('hour').AsInteger;
      systime.wMinute := qryTmp.fieldbyname('minute').AsInteger;
      systime.wSecond := qryTmp.fieldbyname('second').AsInteger;
      systime.wMilliseconds := qryTmp.fieldbyname('millisecond').AsInteger;
      setlocaltime( systime ) ;
      qryTmp.Free;
end;