anchor.diff:  end;
   
   
  -function TKMSaveInfo.IsValid:boolean;
  +function TKMSaveInfo.IsValid: Boolean;
   begin
     Result := FileExists(fPath + fFilename + '.sav') and (fSaveError = '') and fInfo.IsValid;
   end;
  
positive.code:       SetLength(fSaves, fCount);
        fSaves[fCount-1] := TKMSaveInfo.Create(PathToSaves, TruncateExt(SearchRec.Name));
      end;
    until (FindNext(SearchRec)<>0);
    FindClose(SearchRec);
  end;
  
  
negative.code: 
    TKMSavesCollection = class
    private
      fCount: Word;
      fSaves: array of TKMSaveInfo;
      function GetSave(aIndex: Integer): TKMSaveInfo;
    public
      destructor Destroy; override;
  
      procedure Clear;
      property Count: Word read fCount;
      property SavegameInfo[aIndex: Integer]: TKMSaveInfo read GetSave; default;
      procedure ScanSavesFolder(IsMultiplayer: Boolean);
      procedure DeleteSave(aIndex: Integer);
  
      function SavesList: string;
    end;
  