cambiar Chequed de Item determinado en CheckListBox

[lmpadron]

Hola

la solución del amigo ecfisa dio este error

---------------------------
Debugger Exception Notification
---------------------------
Project VB.exe raised exception class EListError with message 'List index out of bounds (-1)'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

el erro no debía estar en el código así que estaba en el momento en que se ejecutaba el código así que agregue un IF para que me comprobara si estaba activa la forma previendo que se ejecutara al momento de la creación de los componentes y ... solucionado !!!

El combo me carga el primer item en blanco al parecer el delimitador al ser pasado recoje el primer elemento y lo pasa en blanco (nulo) así que lo elimino con esta instrucción.

ComboBox1->Items->Delete(0);

les dejo el código de la forma en que quedo

if (Form5->Active == true)
        {
                int c;
                if (DBEdit1->Text != "")
                {

                        ComboBox1->Items->Clear();
                        ComboBox1->Items->Delimiter = '-';
                        ComboBox1->Items->DelimitedText = ADOQuery1->FieldByName("norma")->Text;
                        ComboBox1->Items->Delete(0);

                        TCheckListBox *CLB = static_cast<TCheckListBox*>(CheckListBox1);
                        TComboBox *CB = static_cast<TComboBox*>(ComboBox1);
                        int ix;

                        for(int i = 0; i < CB->Items->Count; i++)
                        {
                                ix = CLB->Items->IndexOf(CB->Items->Strings[i]);
                                CLB->Checked[ix] = ix != -1;
                        }
                }
        }

Gracias por la ayuda