anchor.diff:      procedure MemoClickDbl(Sender: TObject; var AHandled: boolean);
       procedure MemoCommand(Sender: TObject; ACmd: integer; const AText: string; var AHandled: boolean);
       procedure MemoContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
  -    procedure InputFocused(Sender: TObject);
  +    procedure InputChanged(Sender: TObject);
       procedure DoNavigate(Sender: TObject);
       procedure DoToggleWrap(Sender: TObject);
       function ParseLine(const S: string): TAppConsoleLineKind;
  
positive.code:   EdInput.WantTabs:= false;
    EdInput.TabStop:= true;
    EdInput.OnCommand:= @ComboCommand;
  
    EdInput.OptTabSize:= 4;
    EdInput.OptBorderWidth:= 1;
  
negative.code:   Handled:= false;
  end;
  
  procedure TfmConsole.InputChanged(Sender: TObject);
  begin
    if Assigned(FOnNavigate) then
      FOnNavigate('console-input-focus');
  