[im_zorg]

а у меня на теле не сохраняет в "Путнике" в других всё норм пишу так

Procedure SaveProgress;
begin
    rs:=OpenRecordStore('Saving');
    id:=GetRecordStoreNextId(rs);
    if id=1 then begin id:=AddRecordStoreEntry(rs,'0'); id:=AddRecordStoreEntry(rs,'0'); end;
    ModifyRecordStoreEntry(rs,''+zvezda,1);
    ModifyRecordStoreEntry(rs,''+health,2);
    ModifyRecordStoreEntry(rs,''+plX,3); 
    ModifyRecordStoreEntry(rs,''+plY,4); 
    ModifyRecordStoreEntry(rs,''+level,5); 
    ModifyRecordStoreEntry(rs,''+lava,6);
 ModifyRecordStoreEntry(rs,''+plimag,7);
    CloseRecordStore(rs);
    delay(1000);
end;

Procedure LoadProgress;
begin
    rs:=OpenRecordStore('Saving');
    id:=GetRecordStoreNextId(rs);
    if id=1 then
    begin
  delay(1000);
    end
    else
    begin
     load:=true;
     zvezda:=stringtointeger(ReadRecordStoreEntry(rs,1));
        health:=stringtointeger(ReadRecordStoreEntry(rs,2));        
        plX:=stringtointeger(ReadRecordStoreEntry(rs,3));
        plY:=stringtointeger(ReadRecordStoreEntry(rs,4));
        level:=stringtointeger(ReadRecordStoreEntry(rs,5));
        lava:=stringtointeger(ReadRecordStoreEntry(rs,6));
        plimag:=stringtointeger(ReadRecordStoreEntry(rs,7));
        delay(1000);
    end;
    CloseRecordStore(rs);
end;