anchor.diff:      procedure cdbOutput(sender: TObject);
       procedure cdbTerminate(sender: TObject);
       procedure cdbOutputToGui;
  -    procedure cdbFree;
     public
       constructor create(aOwner: TComponent); override;
       destructor destroy; override;
  
positive.code: procedure TCECdbWidget.cdbTerminate(sender: TObject);
  begin
    cdbOutputToGui;
    cdbFree;
  end;
  
  procedure TCECdbWidget.cdbFree;
  begin
    if fCdbProc = nil then
      exit;
    //
    if fCdbProc.Running then
      fCdbProc.Terminate(0);
    fCdbProc.Free;
      fCdbProc := nil;
  end;
  
  end.
  
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);
  