anchor.diff:    Classes, SysUtils,
     FileUtil,
     AbstractCommand,
  -  SolutionModel, ProjectModel,
  +  SolutionModel, ProjectModel, FileModel,
     DbfIndexedStorage;
   
   type
  
positive.code:           Log('load project: ' + projectFullPath);
            project := TProjectModel.Create(solution);
            project.Load(projectFullPath);
            storage.AppendProject(project.Title, projectRelativePath, solutionId);
          end;
        except
          on e : Exception do begin
  
negative.code:   projectRelativePath: String;
    projectFullPath: String;
    project: TProjectModel;
    projectId: Integer;
    fileRelativePath: String;
    fileFullPath: String;
    fileModel: TFileModel;
  begin
    projectName := _app.GetOptionValue('n','name');
  
  