Вообще работа с RecordStore неплохо описана в стандартном хелпе.
Прокоментирую на этом же примере:
program RS_x;
var
etext:integer;
rs:recordstore;//перененная для recordstore
buf:string;
cmok:command;
idx:integer;
cmexit,clicked:command;
begin
rs:=openrecordstore('TEXT');//открываем секцию базы данных с именем "TEXT"
showform;
etext:=formaddtextfield('Текст','',20,tf_any);
cmok:=createcommand('OK',cm_ok,0);
cmexit:=createcommand('EXIT',CM_EXIT,0);
addcommand(cmok);
addcommand(cmexit);
buf:=readrecordstoreentry(rs,1);//читаем запись с индексом 1
formsettext(etext,buf);
repeat
clicked:=getclickedcommand;
if clicked=cmok then
begin
if readrecordstoreentry(rs,1)='' then
//проверка существования записи
idx:=addrecordstoreentry(rs,formgettext(etext)) else
//добавление новой записи, возвращает индекс ячейки
modifyrecordstoreentry(rs,formgettext(etext),1);
//изменение данных в существующей ячейке номер 1 на
//текст из текстового поля etext
end;
until clicked=cmexit;
closerecordstore(rs);//закрываем базу данных
end.