* fixed some Delphi incompabilities as described here: http://www.lazarus.freepascal.org/index.php/topic,7118.msg33371

git-svn-id: trunk@13449 -

packages/winunits-base/src/activex.pp

@@ -2924,9 +2924,9 @@ TYPE
 
      Function  GetTypeComp(OUT ppTComp: ITypeComp):HResult;StdCall;
      {$ifndef Call_as}
-     Function  GetDocumentation(index: WINT; OUT pBstrName: WideString; OUT pBstrDocString: WideString; OUT pdwHelpContext: DWORD; OUT pBstrHelpFile: WideString):HResult;StdCall;
+     Function  GetDocumentation(index: WINT; pBstrName: PWideString; pBstrDocString: PWideString; pdwHelpContext: PDWORD; pBstrHelpFile: PWideString):HResult;StdCall;
      {$else}
-     Function  GetDocumentation(index: WINT; refPtrFlags: DWORD; OUT pBstrName: WideString; OUT pBstrDocString: WideString; OUT pdwHelpContext: DWORD; OUT pBstrHelpFile: WideString):HResult;StdCall;
+     Function  GetDocumentation(index: WINT; refPtrFlags: DWORD; pBstrName: PWideString; pBstrDocString: PWideString; pdwHelpContext: PDWORD; pBstrHelpFile: PWideString):HResult;StdCall;
      {$endif}
 
      {$ifndef Call_as}

packages/winunits-base/src/comconst.pp

@@ -23,7 +23,10 @@ unit comconst;
       SOleError = 'OLE error %.8x';
       SVarNotObject = 'Variant does not reference an automation object';
       SDCOMNotInstalled = 'DCOM not installed';
-
+      SNoCloseActiveServer1 = 'NoCloseActiveServer1';
+      SNoCloseActiveServer2 = 'NoCloseActiveServer2';
+      SAutomationWarning = 'COM Automation Warning';
+      
   implementation
 
 end.