Разумеется.
Код:
if (components[i] is tbutton) and (components[i] is tlabel) and (components[i] is TGroupBox) and (components[i] is tpanel) then
Компонент же не может быть
одновременно и кнопкой, и лейблом, и групп боксом, и панелью? Он должен быть чем-то одним. По этому надо серию проверок.
Код:
if (components[i] is tbutton) then
begin
// тут для кнопок
end
else if (components[i] is tlabel) then
begin
// тут для Label
end
else...