Source position: objpash.inc line 667
function MonitorEnter(
const aObject: TObject;
aTimeout: Cardinal = INFINITE
):Boolean;