[fofka]

Вот отыскал на просторах интернета, но тоже не хочет работать. Тут с Tag-ами

procedure TForm1.Button1Click(Sender: TObject);
var i:integer; 
begin 
i:=0;
while(i = form2.ComponentCount - 1) do 
begin 
  if components[i].Tag = 1 then
  begin
    components[i].Free;
    continue;
  end;
inc(i); 
end; 
end;

Я так понимаю что проверяется Tag компонента, и если равен 1 то очищается.