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