[Delphi] Distruggere oggetti a runtime

[p87]

for i:=1 to count do
 FreeAndNil(FindComponent( 'bottone'+IntToStr(i) ))

Ciauz