anchor.diff:  
   procedure TCEMainForm.actProjCompileExecute(Sender: TObject);
   begin
  -  compileProject(fProject);
  +  fProject.compileProject;
   end;
   
   procedure TCEMainForm.actProjCompileAndRunExecute(Sender: TObject);
   begin
  -  compileProject(fProject);
  -    //runProject(fProject);
  +  if fProject.compileProject then
       fProject.runProject;
   end;
   
  
positive.code:   end;
    goto _run;
    _rbld:
      compileProject(fProject);
    _run:
      if fileExists(fProject.outputFilename) then
        //runProject(fProject);
        fProject.runProject;
  end;
  
  
negative.code: begin
    runargs := '';
    if InputQuery('Execution arguments', '', runargs) then
      fProject.runProject(runargs);
  end;
  {$ENDREGION}
  
  