Можно ли в Дельфи сделать универсальный Lock-ер?

Очень часто приходится делать и\или использовать классы с локом. И каждый из них построен однотипно: есть процедуры Lock\Unlock, функция IsLocked и реализуется всё это через декремент\инкремент FLock. Смысл, я думаю, понятен - чтобы обновления объекта не вызывались во время лока.
Вопрос - можно ли как это автоматизировать изящнее чем передавать в конструктор объект-локер, что будет сам будет рулить этим всем?