获取WebBrowser所有元素的内容

procedure TForm1.Button7Click(Sender: TObject);

var
  Document :Variant;
  Id:Integer;
begin

 Document := WebBrowser1.OleObject.Document.getElementsByTagName('*');
 for Id := 0 to Document.Length-1 do
 begin
   Memo1.Lines.Add('元素名：'+Document.item(Id).className);
  Memo1.Lines.Add('元素内容：'+Document.item(Id).innerhtml);

 end;
end;