Código Delphi [-]TTrato= Class of TManejar; TRatala= Class(TTrato) ... ...
TTrato= Class of TManejar; TRatala= Class(TTrato) ... ...