var
s1,add,url:string;
i:integer;
begin
for i:=0 to 100 do
begin
s1:=inttostr(i);
caption:=s1;
url:='http://www.delphibbs.com/delphibbs/listq.asp?room=0&type=2&sort=1&userfrom=&page='+s1;
add:='E:/大富翁/list/'+s1+'.txt';
UrlDownloadToFile(nil, PChar(url), PChar(add), 0,nil )
end;
end;
