Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{....}

 uses ToolsApi;

 {....}


 var
   a, i: Integer;
 begin
   with (BorlandIDEServices as IOTAPackageServices) do
   begin
     for a := 0 to GetPackageCount - 1 do
     begin
       for i := 0 to GetComponentCount(a) - 1 do
       begin
         {get each component name with GetComponentName(a, i);}
       end;
     end;
   end;
 end;