anchor.diff:  
   function TPSCCustomControl.GetPopup: TPopupMenu;
   Begin
  +  if FMergingPopup or (csDestroying in ComponentState) then
  +  begin
  +    Result := GetOwnPopup;
  +    Exit;
  +  end;
  +
     Result := PSCGetControlPopupMenuEx(Self,Self);
   
     If (FDefaultPopup <> Nil) And (ShowDefaultPopup Or MergePopupMenus) Then
       Begin
  +      FMergingPopup := True;
         if Assigned(FMergedPopup) then
           FMergedPopup.Free;
         FMergedPopup:=nil;
  
positive.code:     FDefaultPopup: TPopupMenu;
      FMergedPopup: TPopupMenu;
      FMergePopupMenus: boolean;
  
      Procedure SetBorderStyle(Value: TBorderStyle);
    protected
  
negative.code: Begin
    Inherited;
    FBorderStyle := bsSingle;
    FMergingPopup := False;
  End;
  
  {-------------------------------------------------------------}
  