anchor.diff:  // ---------------------------------------------------------------------------
   
   initialization
  -  PbProfile := TMemIniFile.Create(ChangeFileExt(ParamStr(0), '.pb'));
  +  PbProfile := TIniFile.Create(ChangeFileExt(ParamStr(0), '.pb'));
     PbLoadedFile := '';
  -  GmProfile := TMemIniFile.Create(ChangeFileExt(ParamStr(0), '.gm'));
  +  GmProfile := TIniFile.Create(ChangeFileExt(ParamStr(0), '.gm'));
     GmLoadedFile := ''
   finalization
     PbProfile.Free;
  
positive.code: begin
    s := GetGmNth(index);
    UpdateScores(s, mode, play, score);
    SetGmNth(index, s);
  
    gmProfile.UpdateFile
  end;
  
  // -- Problems
  
negative.code: 
    SetPbNth(index, format('%d %d', [n, nOk]));
    if storeLast
      then PbSetLast(index)
  end;
  
  // -- Access to last game in sequence mode -----------------------------------
  