[Ferra]

эээ, товарисч. Сначала ищем. Потом проверяем, нашли ли хоть что-то? (<>nil) И только затем - свойства. Иначе получите ошибку и непонятно в чём проблема будет.

Правильно (я бы) оформил так

Код:

var
 Component : TObject;
begin
Component := Form1.FindComponent('CheckBox1');
 if Component <> nil then
  with TCheckBox(Component) do Checked:=True;
end;

Как вариант для непонятливых

Код:

var
 Component : TObject;
begin
Component := Form1.FindComponent('CheckBox1');
 if Component <> nil then
  TCheckBox(Component).Checked:=True;
end;

Либо сразу с приведение типов искать TCheckBox элемент.


PS> Пардон, не заметил. Все ЧекБоксы расположены на Form4.Panel3 (судя по коду вверху). Потому и искать надо на этой панельке. Посему Form1.FindComponent заменяй на Form4.Panel3.FindComponent