anchor.diff:    pathToSolution: String;
     storage: TDbfIndexedStorage;
     solution: TSolutionModel;
  +  solutionId: Integer;
  +  projectRelativePath: String;
  +  projectFullPath: String;
  +  project: TProjectModel;
   begin
     projectName := _app.GetOptionValue('n','name');
   
  
positive.code:         storage.DatabasePath := databasePath;
          solution := TSolutionModel.Create(self);
          solution.Load(pathToSolution);
          storage.AppendSolution(solution.Title);
        except
          on e : Exception do begin
            Error(Format('%s - %s', [e.ClassName, e.Message]));
  
negative.code: 
  uses
    Classes, SysUtils,
    FileUtil,
    AbstractCommand,
    SolutionModel, ProjectModel,
    DbfIndexedStorage;
  
  type
  