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