With Auflösen Refactoring?

[TurboMagic]

Habe gerade gegoogelt ob es irgendwo eine Funktion/Erweiterung gibt mit der man in einem existierenden Code
der sehr viele With Anweisungen verwendet (sogar der Form with a,b do) die Withs in normale Aufrufe
umwandeln lassen kann.

Quasi von hier:

Delphi-Quellcode:

var
  MyForm : TForm;
begin
  with MyForm do
  begin
    Left := 100;
    Top := 100;
    Width := 600;
    Height := 400;
  end;
end;

nach da:

Delphi-Quellcode:

var
  MyForm : TForm;
begin
  MyForm.Left := 100;
  MyForm.Top := 100;
  MyForm.Width := 600;
  MyForm.Height := 400;
end;

Hab' aber nichts gefunden.
Gibt's sowas?

Grüße
TurboMagic