[Kolobok]

MyTForm = class(TForm)
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
end;

MyTButton = class(TButton)
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
end;

MyTEdit = class(TEdit)
public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
end;

Подскажите, как можно избежать описания одних и тех же процедур классов!?
Как можно сделать так, чтобы все классы юзали один описанный конструктор, но классы не наследуют друг друга...
Нужно чтобы в конструкторе вызвался мой код и потом конструктор родителя.

Как мне нужно построить код, чтобы не получилось типа такого !?

constructor MyTForm.Create(AOwner: TComponent);
begin
  inherited;
  MyCode();
end;

destructor MyTForm.Destroy;
begin
  MyCode();
  inherited;
end;

constructor MyTButton.Create(AOwner: TComponent);
begin
  inherited;
  MyCode();
end;

destructor MyTButton.Destroy;
begin
  MyCode();
  inherited;
end;

constructor MyTEdit.Create(AOwner: TComponent);
begin
  inherited;
  MyCode();
end;

destructor MyTEdit.Destroy;
begin
  MyCode();
  inherited;
end;

Чтобы процедуры были описаны единожды для все классов, чтобы не копипастить процедуры...