获取网络日期
━━━━━━━━━━━━━━━━━━━━━━━━━━
function GetDate: TDate;
var
xml: OleVariant;
r: string;
p1, p2: Integer;
AYear, AMonth, ADay: string;
begin
try
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET', 'http://www.symental.com/time/date.asp', False);
xml.Send;
r := xml.responseText;
Result := StrToDateTimeDef(r, StrToDateTime('1900-01-01 00:00:00'));
except

end;
end;