Кодогенерация из Visual Paradigm в Delphi

Диаграмма:

Дала код:

Unit untitled;
 Interface
  Uses
   SysUtils;
  Type
   Class = Class;
   Class2 = Class;
   Class3 = Class;

   Class = Class(TObject)
   End;

   Class2 = Class(untitled.Class)
   End;

   Class3 = Class(untitled.Class2)
   End;

 Implementation



End.

Ну в общем - "на вкус и цвет". Первое впечатление - "всё не очень промышленно". Не для КОНВЕЙЕРА. И не для постоянной кодогенерации.