>>52
別のやり方だけどこんなんでどう？

Usesに　MSHTML_TLBを追加

procedure TForm1.Button1Click(Sender: TObject);
var
Doc: IHTMLDocument2;
begin
Doc := WebBrowser1.Document as IHTMLDocument2;
Memo1.Text := Doc.body.InnerText;
end;