anchor.diff:      { private declarations }
       FOnConsole: TAppConsoleEvent;
       procedure ComboCommand(Snd: TObject; ACmd: integer; var AHandled: boolean);
  +    procedure DoClearMemo(Sender: TObject);
       procedure MemoCommand(Snd: TObject; ACmd: integer; var AHandled: boolean);
     public
       { public declarations }
  
positive.code: 
    ed.WantTabs:= false;
    ed.TabStop:= true;
    memo.TabStop:= true;
    memo.WantTabs:= false;
  end;
  
  procedure TfmConsole.ComboCommand(Snd: TObject; ACmd: integer;
  
negative.code: 
      AHandled:= true;
    end;
  end;
  
  procedure TfmConsole.DoClearMemo(Sender: TObject);
  begin
    memo.ModeReadOnly:= false;
    memo.Text:= '';
    memo.DoCaretSingle(0, 0);
    memo.ModeReadOnly:= true;
  end;
  
  procedure TfmConsole.MemoCommand(Snd: TObject; ACmd: integer;
  