#pas
begin
  d := ReadMTData(_Data, _data_Data); 
  err := _prop_TreeView.AddNode(d);
  case err of
    ADD_ERR_SUCCESS: _hi_onEvent(_event_onAddNode, d);
    ADD_ERR_PARENT_NF: _hi_onEvent(_event_onAddFailed, d); 
  end;    
end;

#pas
case err of
    ADD_ERR_SUCCESS: _hi_onEvent(_event_onAddNode );
    ADD_ERR_PARENT_NF: _hi_onEvent(_event_onAddFailed, d); 
  end;