var
  aType,str,cSign,sSign:string;
  inifn:TIniFile;
  lstMatch:TStrings;
 

 

begin
 
  inifn:=TIniFile.Create(SkinFileName);
  with inifn do
  try
    aType:=ReadString('system','RSSLink','GroupA.xml');
    aType:=copy(aType,1,length(aType)-4);
    lstMatch:=TStringList.create;
    cSign:=inifn.ReadString('system','MatchUpdate','0');
    sSign:=GetIDHTTPStr('http://download.mycaca.com/DesktopSprite/2010FIFA/'+aType+'.txt');
    sSign:=Trim(sSign);
    if sSign>cSign then 
      begin
      str:=GetIDHTTPStr('http://download.mycaca.com/DesktopSprite/2010FIFA/'+aType+'.xml');
      lstMatch.text:=str;
      lstMatch.SaveToFile(SkinPath+aType+'.xml');
      inifn.WriteString('system','MatchUpdate',sSign);
      end;
  finally
    inifn.free; lstMatch.free;
  end;
 
end.

