TWebBrowser - убрать Border при режиме редактирования

[RIO]

Здравствуйте! Собственно сабж При обычном просмотре при помощи данного кода :

procedure TBox.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc: IHTMLDocument2;
  Element: IHTMLElement;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  if Doc = nil then
     Exit;
  Element := Doc.Body;
  if Element = nil then
     Exit;
  Element.Style.BorderStyle := 'None';
end;

Border снимается. Но когда я включаю режим редактирования, то есть :

procedure TBox.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc: IHTMLDocument2;
  Element: IHTMLElement;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  if Doc = nil then
     Exit;
  Element := Doc.Body;
  if Element = nil then
     Exit;
  Element.Style.BorderStyle := 'None';
  Doc.DesignMode := 'On';
end;

Не работает