anchor.diff:    ATSynEdit,
     ATSynEdit_Edits,
     ATSynEdit_Commands,
  +  ATSynEdit_Adapter_Simple,
     ATStringProc,
     proc_globdata;
   
  
positive.code:     procedure MemoClickDbl(Sender: TObject; var AHandled: boolean);
    private
      { private declarations }
      FOnNavigate: TAppConsoleEvent;
      procedure ComboCommand(Sender: TObject; ACmd: integer; const AText: string; var AHandled: boolean);
      function GetWrap: boolean;
      procedure MemoCommand(Sender: TObject; ACmd: integer; const AText: string; var AHandled: boolean);
      procedure DoClearMemo(Sender: TObject);
  
negative.code: 
  procedure TfmConsole.FormCreate(Sender: TObject);
  begin
    FAdapter:= TATAdapterSimple.Create(Self);
    FAdapter.OnGetLineColor:= @DoGetLineColor;
  
    ed:= TATComboEdit.Create(Self);
    ed.Parent:= Self;
    ed.Align:= alBottom;
  