anchor.diff:    end;
   end;
   
  -
  -
  -
   procedure TExampleScenarioEditorFrame.VersionClick(Sender: TObject);
   var
  -  version: tfhirexamplescenarioInstanceVersion;
  -begin
  -  version := tfhirexamplescenarioInstanceVersion.Create;
  -  tfhirexamplescenarioinstance(TVStructure.Selected.TagObject).versionList.AddItem(version);
  +  Version: tfhirexamplescenarioInstanceVersion;
  +begin
  +  Version := tfhirexamplescenarioInstanceVersion.Create;
  +  tfhirexamplescenarioinstance(tvStructure.Selected.tagObject).versionList.AddItem(Version);
     ResourceIsDirty := true;
     ReloadTreeview(tvStructure.Selected);
   end;
  
positive.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;
  
  
negative.code:   obj: tfhirexamplescenarioProcessStep;
  
  begin
    obj := tfhirexamplescenarioProcessStep(tvStructure.Selected.tagObject);
    if obj = nil then
      exit;
  
    if chkPause.ischecked then
      obj.pauseElement := TFHIRBoolean.Create(true)
    else
      obj.deleteProperty('pause', nil);
  
    ReloadTreeview(tvStructure.Selected);
  
  