uses 
  URLMon; 

//-------------------------------------------------------------
// SourceFile = http address e.g. http://www.ibm.com/test.gif
// DestFile = filename where to save the file
//
function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; 
  except 
    Result := False; 
  end; 
end;