请问怎样让程序浏览一系列已预设好地址的网页，并判断每个网页里是否存在特定的单词。(100分)

如在一文本里预写一些字符串：
10000
10001
10002
10003
10004
程序运行后导入listbox中
在combobox1.text里输入http://www.website.com/read.php?tid=
这样两者连接一下就成了完整的地址：
http://www.website.com/read.php?tid=10000
http://www.website.com/read.php?tid=10001
http://www.website.com/read.php?tid=10002
http://www.website.com/read.php?tid=10003
http://www.website.com/read.php?tid=10004
现在问题是怎么样让这些地址的网页一个一个慢慢地完全的显示出来，并在显示完后判断这个网页里是否存在"yes"这个词，如果有，那么把10000存入新生成的yes.txt文件中，如果存在“no”这个词，则把10000存入新生成的no.txt文件中。判断完http://www.website.com/read.php?tid=10000后，程序再显示http://www.website.com/read.php?tid=10001，并对http://www.website.com/read.php?tid=10001的网页内容重复进行上面的判断，存在“yes”则追加存入yes.txt，若存在“no”则存入no.txt文件。
请问这功能要怎么实现呢？谢谢

会对你有帮助
http://www.delphibbs.com/delphibbs/dispq.asp?lid=454632

var
i:integer;
html:string;
for i:=0 to memo1.lines.count-1 do
begin
html:=idhttp1.get(combobox1.text+memo1.lines.strings);//取得指定网页的源代码
if pos(html,'yes') then//如果存在yes
AppendFile(ExtractFilePath(Application.ExeName)+yes.txt',memo1.lines.strings);//存入yes.txt文档
if pos(html,'no') then//如果存在no
AppendFile(ExtractFilePath(Application.ExeName)+no.txt',memo1.lines.strings);//存入no.txt文档
end;
//下面为AppendFile过程
procedure AppendFile(aFileName,aContent:String);
var
StrList:TStringList;
begin
StrList:=TStringList.Create;
//有则追加
if FileExists(aFileName) then
StrList.LoadFromFile(aFileName);
StrList.Add(aContent);
StrList.SaveToFile(aFileName);
StrList.Free;
end;

多人接受答案了。