Delphi TWebBrowser

Delphi v7
TwebBrowser を今日はじめて使ってみた。
フォームにボタンとwebbrowserを貼り付けて
ボタンのOnClickで

procedure TForm1.Button1Click(Sender: TObject); begin   webbrowser1.Navigate('http://www.goo.ne.jp/'); end;

これでボタンを押すと簡単にIEと同じみたい。　　と思ったら、システムのブラウザで表示しているということだからIEそのものじゃないか。

でもこれをプログラムで使うには一山ふた山大変そう。
まず。表示したHTMLソースをMemoに表示してみたい。

プロパティのDocument　ありゃ　これは　
property Document: IDispatch;

んーー　これの使い方さっぱり　と思ったら

http://www.cryer.co.uk/brian/delphi/twebbrowser/twebbrowser_oleobject.htm

こんなの見つけました。
やはりこの方も参っている？

MSのサイトを見てもさっぱりどうしたらいいのやら。

とりあえず。
Memoとボタンをもうひとつ付けて

procedure TForm1.Button2Click(Sender: TObject); begin   memo1.Lines.Text:=WebBrowser1.OleObject.Document.documentElement.innerHTML; end;

なんとかソースはとれた。UTF8のはずなんだけどMemoでは化けずにちゃんと日本語が表示されている。
ちなみに、GooブログはEUCなんだけれども、これもEUC変換しないでMemoに表示されている。
ある意味楽チン。。。

URLにローカルファイルを指定すればもちろん表示される。

しかし、
WebBrowser1.OleObject.Document.documentElement.innerHTML:=string;

なんてしたいけど、ダメでした。

もうちょっと探ってみよう。