TWebBrowser Scrollbar Problem - Zugriffsverletzung beim entfernen der Scrollbar

[Bummi]

Delphi-Quellcode:

procedure TWebbrowserKeeperF.WebBrowserSet3DBorderStyle(bValue: Boolean);
var
  StrBorderStyle: AnsiString;
  tmpElement,
  tmpDocument,
  Element,
  Document : OleVariant;
begin
  if Assigned(WB) then begin
  try
    try
      Document := WB.OleObject.Document;
      if Assigned(TVarData(Document).VPointer) then begin // (varType(Document) = varDispatch) and not VarIsEmpty(Document) and not VarIsNull(Document) then begin
        Element := Document.Body;
        if Assigned(TVarData(Element).VPointer) then // and (varType(Element) = varDispatch) and not VarIsEmpty(Element) and not VarIsNull(Element)
        begin
          case bValue of
            False: StrBorderStyle := 'none';
            True: StrBorderStyle  := '';
          end;
          Element.Style.BorderStyle := StrBorderStyle;
          Element.Style.overflowX   := 'auto'; // horizontale Scrollbar nur bei Bedarf einblenden
          Element.Style.overflowY   := 'auto'; // vertikale Scrollbar nur bei Bedarf einblenden
        end;                                   // (mögliche Werte:
      end;                                     // 'visible' Default. No scroll bar. Display is clipped to visible area.
    except                                     // 'scroll' Scroll bar always visible - whether required or not.
    end;                                       // 'hidden' No scroll bar. Content outside of visible area is hidden.
  finally                                      // 'auto' Content is clipped and scroll bar is displayed if required.)
    Element := tmpElement;
    Document := tmpDocument;
  end;
  end;
end;