Body.Style.Zoom

[Delphiturbo]

Vorher habe ich so versucht:

Delphi-Quellcode:

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc: IHTMLDocument2;
  body: OleVariant;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  body := Doc.Body;
// body.Style.Zoom := '150%';
  body.Style.Zoom := 1.50;// hier kommt der Fehler ! Und wie gesagt, Delphi Debuger sagt nicht darüber !
end;