procedure TForm6.WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer);
begin try
if ProgressMax<>0 then
progress1.MaxValue := ProgressMax;
progress1.Progress := Progress;
if Progress=ProgressMax then progress1.Progress:=0;
except end;End;