Функция чтения из динамически созданного Edit

[Grandistok]

Забил на MDI переделал все в стандартный SDI интерфейс все стало на свои места
Подскажите теперь как выяснить есть ли на TPanel какие либо элементы если я незнаю ни тип ни имя эти элементов?

[spamer]

1) :

procedure TForm1.Button1Click(Sender: TObject);
Var
  k,i : integer;
begin
  k := 0;
  for i := 0 to (Form1.ComponentCount - 1) do
   begin
     if (Form1.Components[i] is TControl) then
      begin
        if ((Form1.Components[i] as TControl).Parent.Name = 'Panel1') then inc(k);
     end;
  end;
  Caption := IntToStr(k);
end;

2) :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := IntToStr(Panel1.ControlCount);
end;