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