Anzahl bereits erstellter Komponenten herausfinden

[DeddyH]

Er soll das Formular nur anzeigen, wenn es 10 Frames 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;
        end
      else
        begin
          ShowMessage('Zähler ist 10');
          TestForm.Show;
        end;        
end;