Для удаления пишем DeleteRecordStore('имя нашей сохраненки');

Теперь откроем (точнее создадим) её:
rs:=OpenRecordStore('имя нашей сохраненки');
[color=gray](незабудь описать rs как recordstore в разделе var!)[/color]

Далее, нам нужно создать 5 строк. в каждой строке 8 символов (размер поля 5х8, не забыл?)
Внесем в var новую переменную - S:string;

С помощью её мы "соберем" 8 символов в одну строку.

Итак, делается так

for i:=1 to 5 do//5 строк
begin
S:='';[color=gray]//очищаем строку, перед тем как создать новую[/color]
for j:=1 to 8 do[color=gray]//в каждой строке 8 символов должно быть, не забыл? <_<[/color]
S:=S+integertostring(map[i,j]);[color=gray]//Прибавляем к строке номер "почвы" (трава, пуустота, земля, и т.д.). Но прибавить к строке число нельзя, к строке можно прибавить только символ или текст. Для этого превращаем число в текст (integertostring - переводиться буквально как "число в текст")[/color]
temp:=AddRecordStoreEntry(rs,S);[color=gray]//записываем в rs (наша сохраненка) строку S (полученная строка). Не забудь описать Temp:integer; в разделе var[/color]
end;
CloseRecordStore (rs);[color=gray]//закрываем сохраненку во избежании различных багов[/color]

DeleteRecordStore('имя нашей сохраненки');
rs:=OpenRecordStore('имя нашей сохраненки');
for i:=1 to 5 do
begin
S:='';
for j:=1 to 8 do
S:=S+integertostring(map[i,j]);
temp:=AddRecordStoreEntry(rs,S);
end;
CloseRecordStore (rs);

procedure memory_test;
var
test_img:array [1...250] of image;
begin
for i:=1 to 250 do
begin
test_img[i]:=imagefromcanvas (0,0,120,120);
setcolor (0,0,0);
fillrect (0,0,100,60);
setcolor (255,255,255);
drawtext ('кол-во:'+integertostring(i),0,0);
drawtext ('память:'+integertostring(i*120*120*4),0,30);
repaint;
end;
end;