TWebBrowser Scrollbar Problem - Zugriffsverletzung beim entfernen der Scrollbar

[Premaider]

Zitat von 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;

Wenn ich diesen Code einfüge kommen folgende Fehler.

Delphi-Quellcode:

[Fehler] Unit1.pas(48): ';' erwartet, aber '.' gefunden
[Fehler] Unit1.pas(56): Undefinierter Bezeichner: 'WB'
[Fehler] Unit1.pas(59): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(59): Anweisung erforderlich, aber Ausdruck vom Typ 'OleVariant' gefunden
[Fehler] Unit1.pas(64): Undefinierter Bezeichner: 'bValue'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden