anchor.diff:      procedure DoNavigate(Sender: TObject);
       procedure DoToggleWrap(Sender: TObject);
       procedure SetIsDoubleBuffered(AValue: boolean);
  -    function GetWrap: boolean;
  -    procedure SetWrap(AValue: boolean);
  +    function GetWordWrap: boolean;
  +    procedure SetWordWrap(AValue: boolean);
       procedure DoRunLine(Str: string);
     public
       { public declarations }
  
positive.code:   memo.DoubleBuffered:= AValue;
  end;
  
  procedure TfmConsole.SetWrap(AValue: boolean);
  begin
    if AValue then
      fmConsole.memo.OptWrapMode:= cWrapOn
  
negative.code:   //  FOnEditCommand(ACmd, AText, AHandled);
  end;
  
  function TfmConsole.GetWordWrap: boolean;
  begin
    Result:= memo.OptWrapMode=cWrapOn;
  end;
  