[pax]

Вот по мойму твоя ошибка:

.......
if (menuGetSelectedIndex=Save) and (i=2) then
begin
* rs := OpenRecordStore('Save');*
* ModifyRecordStoreEntry(rs,IntegerToString(Years),1 );
* ModifyRecordStoreEntry(rs,IntegerToString(indx),2) ;
* ModifyRecordStoreEntry(rs,IntegerToString(indxMons tr),3);
* ModifyRecordStoreEntry(rs,IntegerToString(kamen),4 );
* ModifyRecordStoreEntry(rs,IntegerToString(heal),5) ;
* ModifyRecordStoreEntry(rs,IntegerToString(time),6) ;
* ModifyRecordStoreEntry(rs,IntegerToString(timeY),7 );
* ModifyRecordStoreEntry(rs,IntegerToString(MenuG),8 );
* ModifyRecordStoreEntry(rs,Cursor,9);

* CloseRecordStore(rs);
* ClearForm;
* menu(i);
end;

* if (menuGetSelectedIndex=LoadG) and (i=2) then
begin
* rs := OpenRecordStore('Save');

* Years* * :=StringToInteger(ReadRecordStoreEntry(rs,1));
* indx* * * :=StringToInteger(ReadRecordStoreEntry(rs,2));
* indxMonstr:=StringToInteger(ReadRecordStoreEntry(r s,3));
* kamen* * :=StringToInteger(ReadRecordStoreEntry(rs,4));
* heal* * * :=StringToInteger(ReadRecordStoreEntry(rs,5));
* time* * * :=StringToInteger(ReadRecordStoreEntry(rs,6));
* timeY* * :=StringToInteger(ReadRecordStoreEntry(rs,7));
* MenuG* * :=StringToInteger(ReadRecordStoreEntry(rs,);
* Cursor* * :=ReadRecordStoreEntry(rs,9);

* CloseRecordStore(rs);
*
* ClearForm;//Стереть нахрен
* menu(i);
end;
.......

хотя еще не известно что ты этим пытался сделать