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