Bonjour,
Tu pourrais essayer quelque chose de ce genre:


Var
i:Integer;
Begin
For i:=0 to MyForm.componentcount-1 do
begin
If...