procedure TWebMain.HTMLUpdateRetrieval(Sender: TObject);
		var
			Total	:integer;
			Done	:integer;
			Percent	:integer;
		begin
			Total:=HTML.RetrieveBytesTotal;
			Done:=HTML.RetrieveBytesDone;
					if (Total=0) or (Done=0) then
						Percent:=0
					else
						Percent:=((Done*100) div Total);
						StatusBar.SimpleText:=Format('Getting Document: %d%% of %dK',[Percent,Total div 1024]);
end;