Как быстрее создать автосвойство в Delphi IDE?

Мне нужно создать множество простых опубликованных свойств и управлять ими. Я называю их авто-свойствами, если они выглядят так:

private
  FTitle: string;
published
  property Title: string read FTitle write FTitle;

Обычно я создаю их следующим образом:

1. Добавляю имя и тип свойства:

   Заголовок свойства: строка

2. Выбор и копирование имени свойства Заголовок в буфер обмена.

3. Добавление строки с помощью чтение FCtrl+Vзапись FCtrl+V;

4. Нажатие Ctrl+Shift+Cсоздаст приватное поле

Есть ли способ исключить шаги 2 и 3, чтобы добавлять свойства быстрее? Может быть, для этого можно создать какой-нибудь макрос?