使用WebBrowser元件，取得該網頁內容資料：     Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterText);    

{* ******************************** zHtml2Txt ******************************* *}
{* =================================Blue Fox================================= *}
{* 目    的:  將網頁轉成文字
{* 關 鍵 字:
{* 輸 入 值:  AHtmlFile: string
{* 傳 回 值:  zHtml2Txt:string
{* 呼 叫 式:
{* 說    明:
{* 日    期      由      注解
{* ----------    ----    -------
{* 2002/1/4      levi    
{* =================================Blue Fox==============================2.0 *}
function zHtml2Txt(AHtmlFile: string): string;
var
  Mystring: TStrings;
  s, lineS: string;
  line, Llen, i, j: integer;
  rloop: boolean;
begin
  rloop := False;
  Mystring := TStringlist.Create;
  s := '';
  Mystring.LoadFromFile(AHtmlFile);
  line := Mystring.Count;
 // try
  for i := 0 to line - 1 do
  begin
    lineS := Mystring[i];
    Llen := length(lineS);
    j := 1;
    while (j <= Llen) and (lineS[j] = ' ') do
    begin
      j := j   1;
      s := s   ' ';
    end;
    while j <= Llen do
    begin
      if lineS[j] = '<' then
        rloop := True;
      if lineS[j] = '>' then
      begin
        rloop := False;
        j := j   1;
        continue;
      end;
      if rloop then
      begin
        j := j   1;
        continue;
      end
      else
        s := s   lineS[j];
      j := j   1;
    end;
    s := s   #13#10;
  end;
  Mystring.Free;
 // end; {try}
  result := s;
end;