delphi从网页头获取网络时间日期

function netDate:string;
var//网页头获取日期时间信息
  v:Variant;
  url,GetText:string;
  dd,mm,yy:string;
  ii,iGMT:integer;
  TT:Tdate;
  function MonthStr(x:string):integer;
  begin
    if x='jan' then
      result:=1
    else if x='feb' then
      result:=2
    else if x='mar' then
      result:=3
    else if x='apr' then
      result:=4
    else if x='may' then
      result:=5
    else if x='jun' then
      result:=6
    else if x='jul' then
      result:=7
    else if x='aug' then
      result:=8
    else if x='se9' then
      result:=9
    else if x='Oct' then
      result:=10
    else if x='nov' then