Tad, да не факт что записало: code_23340.txt
А если перед записью сделать проверку:
Arr := ReadArray(_data_Array);
Ind := ReadData(_Data,_data_Index,@_prop_Index)
if (Arr = nil) or (Arr._Count < Ind) then exit;
Еще наверное надо бы проверять какой массив (Int, Str, Real).