#pas
  res1 := (round(1) shl round(ToReal(readData(1))));
  res2 := (round(readDataReal(0)) and round(res1));
  res3 := (round(res2) shr round(ToReal(readData(1))));
  if res3 <> 0 then
  begin
    _hi_onEvent(THIFTCG_Tools(FParent).Events[0], res3);
  end;
  if false then //вот это что?
  begin
    _hi_onEvent(THIFTCG_Tools(FParent).Events[1], res3);
  end;