var
i:integer;
begin
for i:=0 to (YWXX1.TBGWD1(DocViewYWXX1_BGWD1.Doc)).ComponentCount -1 do
begin
if (YWXX1.TBGWD1(DocViewYWXX1_BGWD1.Doc)).Componentsis TCheckBox then
TCheckBox((YWXX1.TBGWD1(DocViewYWXX1_BGWD1.Doc)).Components).Enabled := true;
end;
end;