anchor.diff:    EdInput.WantTabs:= false;
     EdInput.TabStop:= true;
     EdInput.OnCommand:= @ComboCommand;
  +  EdInput.OnChange:= @InputChanged;
   
     EdInput.OptTabSize:= 4;
     EdInput.OptBorderWidth:= 1;
  
positive.code:   Handled:= false;
  end;
  
  procedure TfmConsole.InputFocused(Sender: TObject);
  begin
    if Assigned(FOnNavigate) then
      FOnNavigate('console-input-focus');
  
negative.code:     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 InputChanged(Sender: TObject);
      procedure DoNavigate(Sender: TObject);
      procedure DoToggleWrap(Sender: TObject);
      function ParseLine(const S: string): TAppConsoleLineKind;
  