procedure THIIf_else._work_doCompare;
var
   op1,op2,dt:TData;
begin
   dt := _Data;
   Op1 := ReadData(_Data,_data_Op1,@_prop_Op1);
   Op2 := ReadData(_Data,_data_Op2,@_prop_Op2);
   if Compare(Op1,Op2,_prop_Type) then
      _hi_CreateEvent(_Data,@_event_onTrue,Dt)
   else
      _hi_CreateEvent(_Data,@_event_onFalse,Dt);
end;

procedure THICase._work_doCase;
var dt:TData;
begin
  dt := _Data;
  if Compare(ReadFromThread(_Data),_prop_Value,0) then
     _hi_OnEvent_(_event_onTrue, FData)
  else 
     _hi_OnEvent(_event_onNextCase,dt);
end;