Delphi使用XmlHttp获取时间

uses ComObj, DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  XmlHttp: Variant;
  datetxt : String;
  DateLst : TStringList;
  mon: String;
  timeGMT,GetNetTime:TDateTime;
begin
    XmlHttp := CreateOleObject('Microsoft.XMLHTTP');
    XmlHttp.Open( 'Get', 'http://www.baidu.com/', False);
    XmlHttp.send;
    datetxt :=XmlHttp.getResponseHeader('Date');
    datetxt := Copy(datetxt,Pos(',',datetxt)+,);
    datetxt := StringReplace(datetxt,'GMT','',[]);
    datetxt := Trim(datetxt);
    DateLst := TStringList.Create;
    while Pos(' ',datetxt)> do
    begin
        DateLst.Add(Copy(datetxt,,Pos(' ',datetxt)-)) ;
        datetxt := Copy(datetxt,Pos(' ',datetxt)+,);
    end ;
    DateLst.Add(datetxt) ;
    if DateLst[] = 'Jan' then
        mon := ''
    else if DateLst[] = 'Feb' then
        mon := ''
    else if DateLst[] = 'Mar' then
        mon := ''
    else if DateLst[] = 'Apr' then
        mon := ''
    else if DateLst[] = 'Mar' then
        mon := ''
    else if DateLst[] = 'Jun' then
        mon := ''
    else if DateLst[] = 'Jul' then
        mon := ''
    else if DateLst[] = 'Aug' then
        mon := ''
    else if DateLst[] = 'Sep' then
        mon := ''
    else if DateLst[] = 'Oct' then
        mon := ''
    else if DateLst[] = 'Nov' then
        mon := ''
    else if DateLst[] = 'Dec' then
        mon := '' ;
    timeGMT := StrToDateTime(DateLst[]+'-'+mon+'-'+DateLst[]+' '+ DateLst[]);
    GetNetTime := IncHour(TimeGMT,);
    self.Caption := FormatDateTime('yyyy年mm月dd日 HH:NN:SS',GetNetTime) ;
end;

http://www.lsworks.net/article/20.html