constructores y destructores de objetos personalizados delphi

escriba
  Tequip = clase
  pública
    constructor Create ();
      destructor destruir (); anular;
  privada
    BTN: TButton;
    Lista: TStringList;
  pública
  privada
  extremo;

{} Tequip

constructor Tequip.Create;
comenzar
  btn: = Tbutton.Create (Form1);
  btn.Top: = 10;
  btn.Left: = 10;
  btn.Caption: = 'btn';
  btn.Height: = 30;
  btn.Width: = 100;
  btn.Parent: = Form1.Panel1;
  lista: = TStringList.Create;
final;

destructor Tequip.destroy;
comenzará
  FreeAndNil (BTN);
  list.Free;
  heredado destruir;
final;