anchor.diff:        rs : TRecordSet;
         key: string;
         OnSave : procedure (val:variant) of object;
  -      procedure Choose(nid:Integer);
  +      function Choose : variant;
       end;
     TDbOutCursor = class (udc.TDbCursor)
       public
  
positive.code: 
  procedure TDBOutLnApp.ChooseType;
    begin
      typeMenu.Choose(curs['nid']);
      Redraw;
    end;
  
  
negative.code: 
  
  function TDBMenu.Choose : variant;
    var
      _rs : TRecordSet;    // the data to choose from
      _cr : TDbCursor;     //
  