有一个问题，百思不得其解

Question

请各位看一下下面这段代码，调试的时候发现程序根本就执行for循环，为什么会这样的？是不是这样写有问题？
  btnCount := 1;
  with TButton.Create(Self) do
  begin
    for I := 0 to ComponentCount-1 do
      if Components[I] is TButton then
        Inc(btnCount);
    Parent := Form1;
    Name := 'Button' + inttostr(btnCount);
    Top := Button1.Top + 10;
    Left := Button1.Left + 10;
    DragMode := dmAutomatic;
  end;

Answer 1

“调试的时候发现程序根本就执行for循环”
不好意思，打错了，应该是“调试的时候发现程序根本就不执行for循环”。

Answer 2

呵呵,当然啦TButton.Create(Self)根本就没有子控件

Answer 3

for I := 0 to Self.ComponentCount-1 do
      if Self.Components[I] is TButton then
        Inc(btnCount);