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