Add(MatrixRW,14228016,212,190)
{
 link(Y,16100366:Position,[(239,180)(183,180)(183,232)(134,232)])
}
Add(For,16100366,128,190)
{
 IncludeEnd=1
 link(onEvent,14438730:doCreate,[(165,196)(165,196)])
}
Add(Events,14438730,170,190)
{
 link(onCreate,14228016:doRead,[(210,196)(217,196)])
}

procedure THIMatrixRW._work_doRead;
var
  x,y:integer;
  val:TData;
  m:PMatrix;
begin
   m := ReadMatrix(_data_Matrix);
   if m <> nil then
    begin
     x := ReadInteger(_Data,_data_X,_prop_X);
     y := ReadInteger(_Data,_data_Y,_prop_Y);
     val := M._Get(x,y);
     _hi_OnEvent(_event_onRead,val);
    end;
end;

procedure THIMatrixRW._work_doWrite;
var
  x,y:integer;
  val:TData;
  m:PMatrix;
begin
   m := ReadMatrix(_data_Matrix);
   if m <> nil then
   val := ReadData(_Data,_data_Value,@_prop_Value);
   x := ReadInteger(_Data,_data_X,_prop_X);
   y := ReadInteger(_Data,_data_Y,_prop_Y);
    M._Set(x,y,val);
end;