Как обновить Delphi IDE после применения другого значения IDE SizeFont с помощью ToolsApi?

Question

Я пытаюсь обновить свою IDE после применения нового размера шрифта. Код является:

procedure TEditorFontSizeController.ChangeFontSize(Delta: Integer);
var
  IdeServices: IOTAServices;
  EnvironmentOptions: IOTAEnvironmentOptions;
  CurValue: Integer;
  NewValue: Integer;
begin
  if not Supports(BorlandIDEServices, IOTAServices, IdeServices) then
    Exit;

  EnvironmentOptions := IdeServices.GetEnvironmentOptions;

  CurValue := EnvironmentOptions.Values['FontSize'];
  NewValue := CurValue + Delta;

  if (NewValue <= 7) or (NewValue >= 256) then
    Exit;

  EnvironmentOptions.Values['FontSize'] := NewValue;
  RefreshScreen;
end;

Если я открою Параметры редактора в IDE, я вижу, что новые значения были применены правильно, но они просто отражаются в IDE, когда я нажимаю кнопку OK на экране параметров инструментов. Как применить это прямо из кода?