anchor.diff:      FInstanceID:Integer;
     protected
       FRefCount: Integer;
  -    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
  -    function _AddRef: Integer; stdcall;
  -    function _Release: Integer; stdcall;
  +    function QueryInterface(constref IID: TGUID; out Obj): LongInt;{$ifdef WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
  +    function _AddRef: Integer; {$ifdef WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
  +    function _Release: Integer; {$ifdef WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
     public
       procedure BeforeDestruction; override;
       procedure AfterConstruction; override;
  
positive.code: Function PSCSysDecimalSeparator: Char;
  Begin
    If FSysDecimalSeparator=#0 then
      FSysDecimalSeparator := PSCGetLocaleStr(GetThreadLocale,LOCALE_SDECIMAL,'.')[1];
  
    Result := FSysDecimalSeparator;
  End;
  
  
negative.code: 
  {-------------------------------------------------------------}
  
  destructor TPSCCustomControl.Destroy;
  Begin
    FMergedPopup.Free;
    Inherited;
  