anchor.diff:  
     if not (FStateMachine.CurrentState in SET_FINAL_APPSTATES) then
       try
  +      if not Assigned(FConfig) then
  +        raise ENoValidConfigSpecified.Create;
  +
         FWorkflowState := TWorkflowStateHolder.Create(FConfig.ConfigData);
         TExecutiveTransitionsProvider.PrepareWorkflow(FStateMachine, FWorkflowState);
   
  
positive.code: 
    { Execution states }
  
    FStateMachine
      .AddTransition(asConfigSet, asInitial, acStart,
        procedure (const PreviousState, CurrentState : TApplicationState; const UsedCommand : TApplicationCommand)
        begin
          if not Assigned(FConfig) then
            raise ENoValidConfigSpecified.Create;
        end
      );
  end;
  
  class procedure TFIToolkit.PrintAbout;
  
negative.code: end;
  
  procedure TFIToolkit.InitStateMachine;
  begin
    FStateMachine := TStateMachine.Create(asInitial);
  
    { Common states }
  