Wie alle Komponenten mit einem XXX im Namen löschen?

[encom]

Hallo, hat einer eine Idee wie ich alle Komponenten löschen kann, die ein XXX im Komponentennamen haben?

Danke schon mal

 

[RoCas]

Hi ensacom!

Probier mal folgendes :

var i:Word;
begin
 for i:=Form1.ComponentCount-1 downto 0 do
  If Pos('xxx',Form1.Components[i].Name)>0
   Then Form1.Components[i].Free;
end;

MfG. ;-]