Una forma sencilla de pasar los valores podría ser colocando todos los CheckBox en un panel, CheckBoxes, que no contenga nada más. La rutina sería así:
Código Delphi
[-]
var
I: Integer;
begin
for I := 0 to CheckBoxes.ControlCount - 1 do
(CheckBoxes.Controls[i] as TCheckBox).Checked := (Flags and (1 shl I) <> 0);
end;
donde Flags sería el valor leído de la base de datos.
Bye