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