anchor.diff:    k, nB, nW, color : integer;
   begin
     for k := 0 to gl.Continuations.Count - 1 do
  -    with TKContinuation(gl.Continuations.Items [k]) do
  +    with TKContinuation(gl.Continuations.Items[k]) do
         begin
           nB := B; // number of Black continuations
           nW := W; // number of White continuations
  
positive.code:   try
      for i := 0 to fileList.Count - 1 do
        begin
          fn   := fileList [i];
          path := ExtractFilePath(fn);
          name := ExtractFileName(fn);
  
  
negative.code:           currentReadGame := filename
          end;
  
        view.cl.Add(x[index], filename, index);
        // avoid freeing games in cl
        x[index] := nil;
      end;
  
    x.Free
  