anchor.diff:  begin
     Log('append project ' + title);
     with _projectsTable do begin
  -    AppendRecord([title, path, solutionId]);
  -    Result := FieldValues['project_id'];
  +    Open;
  +    Append;
  +    FieldByName('title').AsString := title;
  +    FieldByName('path').AsString := path;
  +    FieldByName('solution_id').AsInteger := solutionId;
  +    Post;
  +    Result := FieldByName('project_id').AsInteger;
  +    Log(Format('project #%d appended', [Result]));
  +    Close;
     end;
   end;
   
  
positive.code:         cb([FieldByName('project_id').AsInteger
          ,   FieldByName('title').AsString
          ,   FieldByName('path').AsString
          ,   FieldByName('solution_id').AsString]);
          Next;
        end;
      finally
  
negative.code:         cb([FieldByName('file_id').AsInteger
          ,   FieldByName('title').AsString
          ,   FieldByName('path').AsString
          ,   FieldByName('solution_id').AsInteger
          ,   FieldByName('project_id').AsInteger]);
          Next;
        end;
      finally
  