* make infinite a default param

packages/fcl-base/src/syncobjs.pp

@@ -57,7 +57,7 @@ type
       FHandle : TEventHandle;
       FLastError : Integer;
    public
-      destructor destroy;override;
+      destructor Destroy; override;
       property Handle : TEventHandle read FHandle;
       property LastError : Integer read FLastError;
    end;
@@ -71,10 +71,10 @@ type
         AManualReset,InitialState : Boolean;const Name : string;
         UseComWait:boolean=false);
       constructor Create(UseComWait : Boolean=false);
-      destructor destroy; override;
+      destructor Destroy; override;
       procedure ResetEvent;
       procedure SetEvent;
-      function WaitFor(Timeout : Cardinal) : TWaitResult;
+      function WaitFor(Timeout : Cardinal=INFINITE) : TWaitResult;
       Property ManualReset : Boolean read FManualReset;
    end;