Code:

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;