anchor.diff:  
       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;
  
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;
  