anchor.diff:            (ID: 1; Flag: False),
             (ID: 2; Flag: True)
           );
  -  strict private
  -    FFiniteStateMachine: IFiniteStateMachine;
     private
       FEnterStateCalled,
       FExitStateCalled : Boolean;
   
       procedure OnEnterState(const PreviousState, CurrentState : TStateType; const UsedCommand : TCommandType);
       procedure OnExitState(const CurrentState, NewState : TStateType; const UsedCommand : TCommandType);
  +  strict protected
  +    FFiniteStateMachine: IFiniteStateMachine;
     public
       procedure SetUp; override;
       procedure TearDown; override;
  
positive.code:   Result := THashBobJenkins.GetHashValue(Value, SizeOf(Value));
  end;
  
  initialization
    // Register any test cases with the test runner
    RegisterTest(TestTFiniteStateMachine.Suite);
  end.
  
  
negative.code:     procedure TestRemoveTransition;
    end;
  
    TestTThreadFiniteStateMachine = class(TestTFiniteStateMachine)
    public
      procedure SetUp; override;
    end;
  
  implementation
  
  uses
  