anchor.diff:    Item.tagObject := obj;
     Item.IsExpanded := true;
   
  -// do this for the object - any object type:
  +  // do this for the object - any object type:
     if obj is tfhirexamplescenarioinstance then
     begin
       current_item := Item;
   
  -// do this for each object in that object type:
  +    // do this for each object in that object type:
       for i := 0 to tfhirexamplescenarioinstance(obj).versionList.Count - 1 do
       begin
         addTVItem(TreeView, current_item, 'version', tfhirexamplescenarioinstance(obj).versionList[i].versionId, tfhirexamplescenarioinstance(obj).versionList[i]);
       end;
  -//// until here
  +    /// / until here
     end;
   
     if obj is tfhirexamplescenarioProcess then
  
positive.code:   if sel_index <> -1 then
      tvStructure.Selected := tvStructure.ItemByGlobalIndex(sel_index);
  
  //  showTab(TFHIRObject(TVStructure.Selected.TagObject));
  
  end;
  
  
  
  procedure TExampleScenarioEditorFrame.showTab(obj: tFHIRObject);
  var
    i: integer;
    ExampleScenario2:TFHIRExampleScenario;
  
  begin
    for i := 0 to TabControl2.TabCount - 1 do
  
negative.code: 
  procedure TExampleScenarioEditorFrame.btnVersionClick(Sender: TObject);
  var
    Version: tfhirexamplescenarioInstanceVersion;
  begin
    Version := tfhirexamplescenarioInstanceVersion.Create;
    tfhirexamplescenarioinstance(tvStructure.Selected.tagObject).versionList.AddItem(Version);
    ReloadTreeview(tvStructure.Selected);
  
  end;
  
  procedure TExampleScenarioEditorFrame.Button2Click(Sender: TObject);
  begin
  
    // ReloadTreeview(tvStructure.Selected);
    // showTab(TFHIRObject(TFHIRObject(TVStructure.Selected.TagObject)));
  
  end;
  
  procedure TExampleScenarioEditorFrame.Button4Click(Sender: TObject);
  begin
    Button4.text := TRttiContext.Create.GetType(Button4.ClassType.ClassParent).ToString;
  
  end;
  
  procedure TExampleScenarioEditorFrame.Button5Click(Sender: TObject);
  begin
    // edit5.OnChange(edit5);
  
  
    // button5.text:=
    // edit5.FhirProperty.value;
  
    Button5.text := tfhirexamplescenario(resource).nameElement.value;
  
    Button5.text := tfhirexamplescenario(tvStructure.Selected.tagObject).nameElement.value;
  
  end;
  
  