Liberar da memória todas as estancias criadas de uma classe

var
    lista: TList;
    botao: TButton;
    x: integer;
begin
lista := TList.Create();

    // cria primeiro botão
    botao = TButton.Create(self);
    // adiciona primeiro na lista
    lista.Add(botao);
    //cria segundo botão
    botao = TButton.Create(self);
    // adiciona segundo na lista
    lista.Add(botao);
    //cria terceiro botão
    botao = TButton.Create(self);
    // adiciona terceiro na lista
    lista.Add(botao);

    /* neste momento a lista contém o ponteiro de três
       classes do tipo TButton instanciadas em memória */

    // Percorre a lista de botões destruindo as classes
    for x:=lista.Count downto 0 do
    begin
    TButton(lista[x]).Free;
        lista.Delete(x);
    end;
end;