anchor.diff:  
     ed.WantTabs:= false;
     ed.TabStop:= true;
  +  memo.WantTabs:= false;
     memo.TabStop:= true;
  -  memo.WantTabs:= false;
  +
  +  mi:= TMenuItem.Create(Self);
  +  mi.Caption:= 'Clear';
  +  mi.OnClick:=@DoClearMemo;
  +  memo.PopupTextDefault.Items.Add(mi);
   end;
   
   procedure TfmConsole.ComboCommand(Snd: TObject; ACmd: integer;
  
positive.code:     { private declarations }
      FOnConsole: TAppConsoleEvent;
      procedure ComboCommand(Snd: TObject; ACmd: integer; var AHandled: boolean);
      procedure MemoCommand(Snd: TObject; ACmd: integer; var AHandled: boolean);
    public
      { public declarations }
  
negative.code: 
  
  procedure TfmConsole.FormCreate(Sender: TObject);
  var
    mi: TMenuItem;
  begin
    ed:= TATComboEdit.Create(Self);
    ed.Parent:= Self;
  