IDHTTP获取网页的内容或源码

ts:=TStringList . Create;
RespData:=TStringStream . Create( '' );
IdHTTP1 . Request . UserAgent :=  'Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko' ;
try
  for  i :=  0  to  1000  do
  begin
    try
      IdHTTP1 . Get(url,RespData);
      ts . Add(RespData . DataString);
    except
    end ;
  end ;
finally
  ts . Free;
  RespData . Free;
end ;