La finalización de la clase en Delphi es un gran ahorro de tiempo, pero no he encontrado una manera de personalizarlo.

Quisiera que un getter y setter para una propiedad se agrupen en lugar de ser arrojados por toda mi unidad; La parte de la interfaz se genera correctamente, pero la sección de implementación se vuelve un desastre si dejas las cosas en manos del IDE. Quiero que los métodos se ordenen así de forma predeterminada:

función TAaa.getAaa ();

procedimiento TAaa.setAaa ();

procedimiento TAaa.Baa ();

función TAaa.getCow ();

procedimiento TAaa.setCow ();

procedimiento TBbb.getAaa ()

Quiero que la sección de implementación esté en el mismo orden que la interfaz;

Quiero que el cuerpo de un método generado se vea así:

.

 procedure TMyClass.MyProc;
 begin
   { TODO -oWouter -cimplement autogenerated stuff : implement Procedure MyProc() }
   raise Exception.create('procedure TMyClass.MyProc() is not yet implemented');
 end;

Existen herramientas para hacer esto, o es necesario sumergirse en la API de opentools para hacer algo como esto?

Pregunta relacionada: ¿En qué orden pone finalización de clase sus resultados?