procedure TForm1.Button1Click(Sender: TObject);
var
ss: TStringStream;
url: string;
begin
url := 'http://www.hao123.com';
ss := TStringStream.Create('', TEncoding.GetEncoding(963));
try
IdHTTP1.Get(url, ss);
Memo1.Text := ss.DataString;
finally
ss.Free;
end;
end;