delphi XE2 IDHTTP 获取UTF-8编码中文网页

Delphi XE2 IDHTTP 获取UTF-8编码中文网页

procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
  cText:TstringStream;
  idHttp1:TIDHTTP;
begin
  cText:=TStringStream.Create('',TEncoding.UTF8);
  idHttp1:=TIDHTTP.Create(nil);
  idHttp1.Get('http://www.3464.com/Default.htm,cText);
  idHttp1.Free;
  Memo1.Text:=cText.DataString;
  cText.Free;
end;