anchor.diff:  var
     outname: string;
   begin
  +  lstCdbOut.Clear;
     if fProject = nil then exit;
     outname := fProject.outputFilename;
     if not fileExists(outname) then exit;
  
positive.code:     procedure btnStartClick(Sender: TObject);
      procedure btnStepClick(Sender: TObject);
      procedure btnStopClick(Sender: TObject);
      procedure Button2Click(Sender: TObject);
      procedure txtCdbCmdKeyPress(Sender: TObject; var Key: char);
    private
      fCdbProc: TAsyncProcess;
  
negative.code: end;
  
  procedure TCECdbWidget.btnStopClick(Sender: TObject);
  const
    cmd = 'q'#13#10;
  begin
    if fCdbProc <> nil then
      fCdbProc.Input.Write(cmd[1], length(cmd));
    cdbFree;
  end;
  
  procedure TCECdbWidget.txtCdbCmdKeyPress(Sender: TObject; var Key: char);
  