Source position: syncobjs.pp line 204
public function TSemaphore.WaitFor(
aTimeout: Cardinal = INFINITE
):TWaitResult; override;