Anzahl bereits erstellter Komponenten herausfinden

[Metallicwar]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
  zaehler: Integer;
begin
    zaehler:= 0;
    TestForm:=TForm.Create(Self);
    TestForm.ClientHeight:=1200;
    TestForm.ClientWidth:=700;
for i := 0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[i] then
  if zaehler <= 10 then
    begin
      TestFrame:=TFrame4.Create(Self);
      TestFrame.Name:=''+(CheckListBox1.Items[i]);
      TestFrame.Top:= Random(1200);
      TestFrame.Parent:=TestForm;
      zaehler:= zaehler + 1;
      TestFrame.Show;
    end
    else
    begin
      ShowMessage('Zähler ist 10');
    end;
    TestForm.Show;
end;
end.

Stimmt fast^^
er springt, auch wenn es 10 Frames sind, in die Zeile TestForm.Show.
*PEINLICH*