É implementar na sua classe os métodos AfterConstruction e BeforeConstruction, como no exemplo abaixo:
TMyClasst = class(TObject) public procedure AfterConstruction; override; procedure BeforeDestruction; override; end;
Bom, é isso.
TMyClasst = class(TObject) public procedure AfterConstruction; override; procedure BeforeDestruction; override; end;