[beZ_probleM]

я вот так пишу и у меня всегда работает

procedure Save_to_recordStore;
  var rs: recordStore;
      ex:integer; 
  begin 
    deleteRecordStore(Pers.login);  // удаляем старое хранилище
    rs := openRecordStore(Pers.login); 
       repeat 
          ex := addRecordStoreEntry(rs,integerToString(Pers.level)); 
       until ex<>-1;
       repeat
          ex := addRecordStoreEntry(rs,integerToString(Pers.exp)); 
       until ex<>-1;
    closeRecordStore(rs); 
  end;

procedure From_recordStore_to_Pers;
  var rs: recordStore; 
  begin  
    rs := openRecordStore(Pers.login); 
       Pers.level := StringtoInteger(readRecordStoreEntry(rs,2)); 
       Pers.exp := StringtoInteger(readRecordStoreEntry(rs,3));
    closeRecordStore(rs); 
  end; 


З.Ы. луше создавать отдельные процедуры загрузки и сохранения чтоб потом при нажатии на клавишу вписать просто имья процедуры=) так код проще будет