Главное при использовании RS это первый запуск программы, т.е. при первом запуске происходит инициализация...
Попробуй использовать такую процедуру:
Procedure InitRS(RSName:String);
var *rs *: recordStore;
nextId : integer;
Begin
rs := OpenRecordStore(RSName);
nextId := GetRecordStoreNextId(rs);
// Если это первый запуск программы, то инициализация
if nextId = 1 then
* nextId := AddRecordStoreEntry(rs, '0'); // кол-во записей равно нулю
// закрытие record store
CloseRecordStore(rs); *
End;
И в самой программе исрользуй в самом начале:
program MY_PROG;
...
Begin
InitRS('Save');
...
End.