Source position: syncobjs.pp line 399
public function TLightweightSemaphore.WaitFor(
aTimeout: Cardinal = INFINITE
):TWaitResult; override; overload;