anchor.diff:      published
         property kind : integer read _kind write _kind;
       end;
  + 
   implementation
   
  
positive.code:     ClrScr;
    end;
  
  
  {---------------------------------------------------------------}
  { TDbCursor                                                     }
  
negative.code:       procedure Render(term :  ITerm); override;
        property DataCursor : TDbCursor read _cur write _cur;
     end;
  
    TStepper = class (TComponent)
      protected
  