--- Merging r31283 into '.':

U    packages/winunits-base/src/activex.pp
--- Recording mergeinfo for merge of r31283 into '.':
 U   .

# revisions: 31283

git-svn-id: branches/fixes_3_0@33386 -

packages/winunits-base/src/activex.pp

@@ -29,10 +29,10 @@ type
    POleStr = Types.POleStr;
    PPOleStr = Types.PPOleStr;
    TBStr = POleStr;
-   TBStrList = array[0..(high(integer) div sizeof(TBSTR))-1] of TBstr;
+   TBStrList = array[0..65535] of TBstr;
    PBStrList = ^TBStrList;
    POleStrList = ^TOleStrList;
-   TOleStrList = array[0..(high(integer) div sizeof(POleStr))-1] of POleStr;
+   TOleStrList = array[0..65535] of POleStr;
 
    PBStr = ^TBStr;
    TOleEnum = type LongWord;