To count the amount of each control type

[asdf]

In a form, there are lots of controls and various types.
Please help finding the way to count for each type .
Thank you.

[typo]

Code: [Select]

  for i := 0 to Application.ComponentCount - 1 do
    if Application.Components[i] is TForm then
      Showmessage(TForm(Application.Components[i]).Name);

[A.S.]

Code: [Select]

sl: TStringList;
...
sl.Clear;
for i := 0 to Components.Count - 1 do
  sl.Values(Components[i].ClassName) :=
    IntToStr(StrToIntDef(sl.Values(Components[i].ClassName), 0) + 1));