Colocando uma barra de progresso no navegador de internet delphi7

Vamos utilizar um navegador que já criamos se você ainda não visualizou esse tutorial... Ai vai o link
http://qiinformatica.blogspot.com.br/2012/12/desenvolvendo-um-simples-navegador-em.html

--------------------------------------------------------------------------------------------
1 - Vamos criar nosso navegador
2 - Vamos adicionar uma progressbar (Win32)
--------------------------------------------------------------------------------------------
No evento OnProgressChange do WebBrowser1 Digite isso...

Código... (Entre o begin e o end)

If (Progress>=1) and (ProgressMax>1)
then
begin
ProgressBar1.Position := Round((Progress * 100)
Div ProgressMax);
ProgressBar1.Visible := True;
end
else
begin
ProgressBar1.Position := 1;
ProgressBar1.Visible := False;
end;
------------------------------------------------------------------------
Agora você salva compila e testa...