Примерно так:
program RS_x;
var
etext:integer;
rs:recordstore;
buf:string;
cmok:command;
idx:integer;
cmexit,clicked:command;
begin
rs:=openrecordstore('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);
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);
end;
until clicked=cmexit;
closerecordstore(rs);
end.