anchor.diff:    begin { choosetype }
       SetUp;
       repeat DrawMenu; Interact until cancel or done;
  -    if (not cancel) and assigned(OnSave) then OnSave(rs[key]);
  +    if cancel then result := nil
  +    else begin
  +      result := rs[key];
  +      if assigned(OnSave) then OnSave(result);
  +    end;
       TearDown;
     end;
   
positive.code:       rs : TRecordSet;
        key: string;
        OnSave : procedure (val:variant) of object;
        procedure Choose(nid:Integer);
      end;
    TDbOutCursor = class (udc.TDbCursor)
      public
  
negative.code: 
  procedure TDBOutLnApp.ChooseType;
    begin
      typeMenu.Choose;
      Redraw;
    end;
  
  