val := ReadData(_Data,_data_Value,@_prop_Value);[/code] первым считывает данные из потока? Кто мешает сделать вот так?
procedure THIMatrixRW._work_doWrite;
var
  x,y:integer;
  val,dt:TData;
  m: PMatrix;
begin
   dtNull(dt);
   m := ReadMatrix(_data_Matrix);
   val := ReadData(_Data,_data_Value,@_prop_Value);
   x := ReadInteger(dt,_data_X,_prop_X);
   y := ReadInteger(dt,_data_Y,_prop_Y);
   if m <> nil then
    M._Set(x,y,val);
end;