anchor.diff:    end;
   end;
   
  -procedure TWizard<T>.RemoveScreen(screen : TWizardForm<T>);
  -begin
  -  CheckStarted;
  -  //HS
  -  //FScreenPath.Remove(screen);
  -  //screen.Destroy;
  -end;
  -
   procedure TWizard<T>.PresentScreen(screen : TWizardForm<T>);
   begin
     FCurrentScreen := screen;
  
positive.code:     inc(FCurrentScreenIndex);
      // Backup current path in case user goes back
      if FScreenPathBackup.ContainsKey(FCurrentScreenIndex) then begin
        FScreenPathBackup[FCurrentScreenIndex].Destroy;
      end;
      FScreenPathBackup.AddOrSetValue(FCurrentScreenIndex, TList<TComponentClass>.Create(FScreenPath));
      PresentScreen(FScreenInstances[FScreenPath[FCurrentScreenIndex]]);
  
negative.code:   Previous;
  end;
  
  {%endregion}
  
  {%region TActionWizard }
  