[Delphi] Distruggere oggetti a runtime

[tia86]

risolto!

bit : TComponent;

for i:=1 to count do
begin
s:= 'bottone'+inttostr(i);
bit:= FindComponent ('bottone'+inttostr(i));
FreeAndNil(bit);

end;