anchor.diff:      FDefaultPopup: TPopupMenu;
       FMergedPopup: TPopupMenu;
       FMergePopupMenus: boolean;
  +    FMergingPopup: Boolean;
   
       Procedure SetBorderStyle(Value: TBorderStyle);
     protected
  
positive.code: 
  function TPSCCustomControl.GetPopup: TPopupMenu;
  Begin
    Result := PSCGetControlPopupMenuEx(Self,Self);
  
    If (FDefaultPopup <> Nil) And (ShowDefaultPopup Or MergePopupMenus) Then
      Begin
        if Assigned(FMergedPopup) then
          FMergedPopup.Free;
        FMergedPopup:=nil;
  
negative.code:         Result := FMergedPopup
        Else
          Result := Nil;
        FMergingPopup := False;
      End;
  End;
  
  