var
i : integer;
begin
for i:= 0 to components.count-1do
begin
if components.classname='Tbitbtn' then
begin
listbox1.items.add(Tbitbtn(components).caption);
end;
end;
end;
var
I: integer;
begin
Self.ListBox1.Items.Clear;
for I := 0 to Self.ComponentCount - 1do
begin
if Self.Components is TBitBtn then
begin
Self.ListBox1.Items.Add(TBitBtn(Self.Components).Caption);
end;
end;
end;
