anchor.diff:      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;
  
positive.code: var
    outname: string;
  begin
    if fProject = nil then exit;
    outname := fProject.outputFilename;
    if not fileExists(outname) then exit;
  
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);
  