--- Merging r19417 into '.':

U    packages/fcl-extra/src/win/ServiceManager.pas

# revisions: 19417
------------------------------------------------------------------------
r19417 | michael | 2011-10-08 16:49:02 +0200 (Sat, 08 Oct 2011) | 1 line
Changed paths:
   M /trunk/packages/fcl-extra/src/win/ServiceManager.pas

* Patch from Reinier Olieslagers to fix typo in property
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_6@19705 -

packages/fcl-extra/src/win/ServiceManager.pas

@@ -136,7 +136,8 @@ type
     procedure GetServiceStatus(SHandle : THandle; Var Status : TServiceStatus); overload;
     procedure GetServiceStatus(ServiceName : String; Var Status : TServiceStatus); overload;
     Property  Handle : THandle Read FHandle;
-    Property  Acces : DWord read FAccess Write FAccess;
+    Property  Access : DWord read FAccess Write FAccess;    
+    Property  Acces : DWord read FAccess Write FAccess; deprecated; //Kept for compatibility
     Property  Services : TServiceEntries Read FServices;
   published
     { Published declarations }