Anzahl bereits erstellter Komponenten herausfinden

[Metallicwar]

Hi, hab Blackout^^ bin schon ganzen Tag am powern ^^ hab bestimmt wieder mal was in falsche line geschrieben:
Problem: Er öffnet das Formular mit den Frames und zeigt erst dann die Meldung an dass es 10 sind.

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;
      TestForm.Show;
    end
    else
    begin
      ShowMessage('Zähler ist 10');
    end;
end;