Инструмент для рефакторинга блоков «с»

Есть ли инструмент рефакторинга для удаления блоков "with"? Например, преобразовать

with Form1 do
begin
  Height := Blah;
  Blubb := Name;
end;

в

Form1.Height := Blah;
Blubb := Form1.Name;

, где Form1 - это VCL TForm. Оптимально он должен работать с Delphi 2007.