[Red_Garry]

Здравствуйте!
Вопрос в следующем: на форме куча чекбоксов, радиобутонов и т.д. и т.п. Процедура анализирует элементы и, если натыкается на CheckBox в состоянии True, выполняет что-то, если не в True, то тоже что-то выполняет. Процедура глохнет на втором вложенном If-е с ошибкой, указанной в имени поста.

Код:

for i := 0 to form6.ComponentCount - 1 do
if form6.Components[i].ClassName = 'TCheckBox' then
if TCheckBox(form6.Components[i]).Checked=true then
begin
        какие-то действия
end
else
begin
        какие-то действия
end;

Как подкрутить? Или может как-то иначе решить?

Спасибо откликнувшимся!

[NumLock]

так там то form6, то form1. да и вообще через is красивее проверять класс.

[Red_Garry]

Form6 исправил. Через is проверка класса не работает

[NumLock]

Сообщение от Red_Garry

Через is проверка класса не работает

а у меня работает

[Alegun]

Сообщение от Red_Garry

...Через is проверка класса не работает

Классически это делается так

Код:

for i := 0 to ComponentCount-1 do
   if Components[i] is TCheckBox then
     (Components[i] as TCheckBox).Checked:= true;

[Red_Garry]

спасибо за инфу. А по сути поста: надо было в Uses добавить StdCtrls.
Вопрос закрыт