Delphi2007下CIS的clHttp使用

Delphi组件Clever Suite Internet是一款优秀的网络组件，唯一让我感觉不足的是ClHttp竟然使用了断言，当程序遇到问题的时候就会弹出一个对话框，并显示问题是出在了那个单元里。好了，言归正传，发一个Delphi2007下使用ClHttp的例程。

procedure TForm1.Button1Click(Sender: TObject);
var
  AStrm: TStringStream;
begin
  Memo1.Lines.Clear;
  AStrm := TStringStream.Create('');
  clHttp1.Get('http://www.baidu.com', AStrm);
  Memo1.Lines.Add(Utf8ToANSI(AStrm.DataString));
end;

http://www.lsworks.net/article/28.html