Source position: objpash.inc line 630
class procedure TMonitor.Pulse(
const aObject: TObject
); overload;