1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure ListKomponents;

Var
  i,j : Integer;
  LComponent : TComponent;
  slTemp    : TStringList;

begin
   slTemp := TStringList.Create;

   for i:=0 to Application.ComponentCount-1 do
     begin
      LComponent:=Application.Components[i];
      for j:=0 to LComponent.ComponentCount-1 do
         begin
          if slTemp.IndexOf(LComponent.Components[j].ClassName) = -1 then
            slTemp.Add(LComponent.Components[j].ClassName);
         end;

     end;
   slTemp.Sort;
  slTemp.SaveToFile('c:\komponenten.txt');
  slTemp.Free;
end;