В принципе, в C++ практикуется такой подход. Там же по стандарту нету исключений и try..finally, вот и приходится подобные шаблоны использовать в качестве альтернативы try..finally.

Такой подход тоже вполне рабочий:




Но нужно понимать, что работает он за счёт временной переменной (интерфейсной ссылки), которую компилятор вставляет в месте каждого вызова функции Auto. На данный момент компилятор Delphi чистит эти временные переменные только при выходе из функции. Но что, если поведение завтра изменится? Вполне могут решить, что раз временная переменная не используется, можно её сразу занилить. В Лазарусе вроде так и сделали.

Адаптировал TSmartHolder под Lazarus. Вроде кроме MODE DELPHI ничего не потребовалось.
Проверил вариант "Auto().Instance" - под лазарусом оно не работает. Предположительно там используется одна временная интерфейсная ссылка на все вызовы функции.