cargar un listbox

[[Lepe]]

Esto mismo estoy haciendo yo, pero no entiendo como se crearía y
se destruiría el objeto. Veamos mi ejemplo:

 type  TIT = class(Tobject)// Tipo Importe Tarifas
  private
    Fvalor : Double;
    FString:string;
    function lacadena:string;
  public
    AsFloat : Double read Fvalor Write Fvalor ;
    AsString : string read laCadena;
    constructor Create();
    destructor Free;
  end;

implementation
{ TIT }

constructor TIT.Create;
begin
  
  Fvalor := -1.0;
  Fstring:= '-1.0';
end;

destructor TIT.Free;
begin
  inherited Free; ¿?¿?¿?¿?
end;

function TIT.lacadena: string;
begin
  Result := FormatFloat('%n €',Fvalor);
end;

¿ que tengo que hacer en el Free ? si no pongo nada,
no me da error, pero vaya usted a saber si estoy
haciendo las cosas bien.


De antemano, perdón por mi ignorancia, y gracias por vuestra sabiduría