Delphi中idHttp获取网页源文件

procedure TForm1.Button1Click(Sender: TObject);
var
  pageStr: string;
begin
  with IdHTTP1.Request do begin
    IdHTTP1.HandleRedirects := true; //使用Idhttp.Post时，出现 HTTP/1.1 302 FOUND 错误，地址自动转向。
    ContentType := 'application/x-www-form-urlencoded';
    UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727)';
  end;
  try
    pageStr:=IdHttp1.Get('http://www.renyuansoft.com');
  except
    Showmessage('Network Error!');
    Exit;
  end;

  Memo1.text := pageStr;
 
 end;