请问如何读出指定网页的内容（源码）（200分转送） (0分)

请问如何在程序中读取指定网页（如：www.163.com）的内容？
比如：表单上有一BUTTON，一EDIT，一MEMO，
EDIT的TEXT为www.163.com
单击BUTTON，则在MEMO中显示www.163.com的HTML文本源码

取分地点：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1328140

uses
mshtml;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterHtml);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterText);
end;

//先执行这个方法
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
webbrowser1.Navigate(edit1.text);
end;

我试试就来

请影子大侠速到上述在址取分！