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