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:   //self.FHost.NextEvent.Remove(NextHandler);
    //self.FHost.PreviousEvent.Remove(PreviousHandler);
    self.FHost.ShowModal;
    self.FHost.Destroy;
    self.FHost := nil;
  end;
  
  
negative.code:         procedure Next; virtual;
          procedure Previous; virtual;
          procedure UpdatePath(APathUpdateType: TPathUpdateType; const screens : array of TComponentClass); virtual;
    end;
  
    { TActioWizard Delegate Declarations }
  