遍历网页的一段Delphi代码(转帖),给有用的人参考!