كيف أقوم بتغيير خصائص عدة مكونات من نفس النوع

[rahiche]

PHP كود :

var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
  begin
    if Components[i] is TExpander then
    begin
      (Components[i] as TExpander).Active := true;
    end;
  end;d;