anchor.diff:        TableLevel := 7;
         Exclusive := True;
         TableName := 'files.dbf';
  -      Log('TDbfIndexedStorage files add columns');
  +      Log('files add columns');
         with FieldDefs do begin
           Add('file_id', ftAutoInc, 0, True);
           Add('title', ftString, 100, True);
  +        Add('path', ftString, 255, True);
           Add('solution_id', ftInteger, 0, True);
           Add('project_id', ftInteger, 0, True);
         end;
  -      Log('TDbfIndexedStorage files write to disk');
  +      Log('files write to disk');
         CreateTable;
         Open;
  -      Log('TDbfIndexedStorage files index');
  +      Log('files index');
         AddIndex('ix_f_f_id', 'file_id', [ixPrimary, ixUnique]);
  -      AddIndex('ix_f_title', 'title', [ixCaseInsensitive, ixUnique]);
  +      AddIndex('ix_f_title', 'title', [ixCaseInsensitive]);
  +      AddIndex('ix_f_path', 'path', [ixCaseInsensitive]);
         AddIndex('ix_fs_sid', 'solution_id', []);
         AddIndex('ix_fp_pid', 'project_id', []);
       finally
  -      Log('TDbfIndexedStorage close table files');
  +      Log('close table files');
         Close;
       end;
     end;
  
positive.code:     public
        constructor Create(aOwner: TComponent); override;
        procedure CreateTables(path: String);
        property IsDebug : Boolean write _isDebug;
    end;
  
  
negative.code:       TableLevel := 7;
        Exclusive := True;
        TableName := 'solutions.dbf';
        Log('solutions add columns');
        with FieldDefs do begin
          Add('solution_id', ftAutoInc, 0, True);
          Add('title', ftString, 100, True);
        end;
        Log('solutions write to disk');
        CreateTable;
        Open;
        Log('solutions index');
        AddIndex('ix_s_sid', 'solution_id', [ixPrimary, ixUnique]);
        AddIndex('ix_s_title', 'title', [ixCaseInsensitive, ixUnique]);
      finally
        Log('close table solutions');
        Close;
      end;
    end;
  