anchor.diff:    outname := fProject.outputFilename;
     if not fileExists(outname) then exit;
     //
  -  cdbFree;
  +  killProcess(fCdbProc);
     fCdbProc := TAsyncProcess.create(nil);
     fCdbProc.Executable := 'cdb';
     fCdbProc.Parameters.Add('-c');
  
positive.code:     procedure cdbOutput(sender: TObject);
      procedure cdbTerminate(sender: TObject);
      procedure cdbOutputToGui;
      procedure cdbFree;
    public
      constructor create(aOwner: TComponent); override;
      destructor destroy; override;
  
negative.code: begin
    if fCdbProc <> nil then
      fCdbProc.Input.Write(cmd[1], length(cmd));
    killProcess(fCdbProc);
  end;
  
  procedure TCECdbWidget.txtCdbCmdKeyPress(Sender: TObject; var Key: char);
  