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