http://www.intelligo.net/iedelphi/
看那个IECache,多好的站点呀...你要的全有,
举个小例子(用到了TIECache,在上面这个站点下载)
var
  Url, FileName, Expire : String;
  ExpireDT : TDateTime; 
begin
  Url:='C:\Temp\test.htm';
  FileName:='C:\Temp\test.htm';
  Expire:='01-03-01 00:00:00';
  ExpireDT:=StrToDateTime(Expire);
  IECache1.CopyFileToCache(Url, FileName, NORMAL_CACHE_ENTRY, ExpireDT);
end;