show a miniature view of a Webpage in TWebbrowser?
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.50;
end;