>>261
漏れもブラウザ作った事があるんだけど、プログレスバーを実装しようと
色々調べてるうちに結局めどくなったのでやめた。
んで、改めて気になってぐぐってみたら、簡単に実装できる方法を発見。

TWebBrtowserのOnProgressChangeイベントに次のように記述するだけ。

//Progress　　　　ダウンロードの進行状況のバイト単位での数値、完了時に-1を返す
//ProgressMax　 ダウンロードするデータの大きさ(バイト単位)

　if ProgressMax > 0 then //Progressが0で除算されるのを防ぐ
　　ProgressBar1.Position := Round(Progress / ProgressMax * 100);

ただしこれだとプログレスバーが100%表示されたままになっちゃう場合があるので、
後は自分で工夫するべし。