.......
 *if (menuGetSelectedIndex=Save) and (i=2) then
 begin
 * rs := OpenRecordStore('Save'); * 
 * ModifyRecordStoreEntry(rs,IntegerToString(Years),1);
 * ModifyRecordStoreEntry(rs,IntegerToString(indx),2);
 * ModifyRecordStoreEntry(rs,IntegerToString(indxMonstr),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(rs,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,8));
 * Cursor * *:=ReadRecordStoreEntry(rs,9);

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