procedure TplWordFormEx2.Button1Click(Sender: TObject);
var
  objPane : Word2000.Pane;
begin
  objPane := wdfWordApp.ActiveWindow.ActivePane;
  objPane.DisplayRulers := not objPane.DisplayRulers;

  wdfSetFocusWord;
end;