Hola, como esta planteado deben estar seleccionados todos los checks, creo que en ese caso tendría mas sentido otro componente.
Si la idea es verificar si hay almenos uno seleccionado (junto con el la condicion del
BdLoockUpComboBox) yo separaria la evaluacion de ambas condiciones.
(de paso se recorre solo una vez y ya se evalua si esta alguno seleccionado o no registrandose alli los datos elegidos).
Espero haberme explicado bien!
Saludos
Nicolas Perichon
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
sel: string;
vacio, vacio2: boolean;
begin
vacio:= true;
for i := 0 to CheckListBox1.Count - 1 do
begin
if checklistbox1.Checked[i] <> false then
begin
sel := sel + ' '+ CheckListBox1.Items.Strings[i];
vacio := false;
end;
end;
vacio2:= false;
if not(vacio) and not(vacio2) then
showmessage('Ok, Seleccionados: '+sel) else
showmessage('Debe seleccionar todos los datos');
end;
end.