Можно всё хранить и в одном хранилище:
program rs
var rs : recordStore;
countStr : string;
countInt, nextId, index, a, b, c : integer;
begin
rs := OpenRecordStore('ABC'); //открываем RMS
{если первый запуск, добавляем 3 записи}
if nextId = 1 then
index := AddRecordStoreEntry(rs, '0') //сначала 0
index := AddRecordStoreEntry(rs, '0') //сначала 0
index := AddRecordStoreEntry(rs, '0') //сначала 0 (добавляем 3 записи)
{читаем переменные}
countStr := ReadRecordStoreEntry(rs, 1); // читаем запись
a := StringToInteger(countStr);
countStr := ReadRecordStoreEntry(rs, 2); // читаем запись
b := StringToInteger(countStr);
countStr := ReadRecordStoreEntry(rs, 3); // читаем запись
c := StringToInteger(countStr);
{что-то делаем с переменными}
{Сохраняем все переменные}
ModifyRecordStoreEntry(rs, '' + a, 1); // coхраняем a
ModifyRecordStoreEntry(rs, '' + b, 2); // coхраняем b
ModifyRecordStoreEntry(rs, '' + c, 3); // coхраняем c
CloseRecordStore(rs); // закрываем хранилище
{делаем, что хотим}
end.