anchor.diff:     procedure SetStatus(status:TRozpStatus);
      procedure UpdateOutput();
   
  +   procedure Mount();
  +   procedure Activate();
  +   procedure Prolong();
  +
     public
       constructor Create(index:Integer);
       destructor Destroy(); override;
  
positive.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  end.//unit
  
negative.code: 
     ENTER: begin
       case (Self.status) of
         TRozpStatus.not_selected : Self.Mount();
         TRozpStatus.mounting     : Self.Activate();
         TRozpStatus.active       : Self.Prolong();
       end;
      end;//case TPanelButton.left
  
     ESCAPE: begin
  