Anzahl bereits erstellter Komponenten herausfinden

[blackfin]

Delphi-Quellcode:

var
  i,FormCount : Integer;  
begin
   FormCount := 0 ;

   for i := 0 to (Form1.ComponentCount - 1) do
   begin
     if (Form1.Components[i].ClassName = 'TFrame') then // oder wie halt deine Frame-Klasse heisst...
     begin
        Inc(FormCount) ;
     end;
   end;   

   if (FormCount < 10) then
   begin
      //
   end
   else
   begin
     //
   end;
end;

Alternativ kannst du auch statt auf ClassName abfragen auch mit "is" arbeiten.