Code:

uses ToolsApi;

{....}

var

a, i: Integer;

begin

with (BorlandIDEServices as IOTAPackageServices) do

begin

for a := 0to GetPackageCount - 1do

begin

for i := 0to GetComponentCount(a) - 1do

begin

{get each component name with GetComponentName(a, i);}

end;

end;

end;

end;