Duda con un TCheckListBox

[darkamerico]

Hola, finalmente pude dar con la solucion, la coloco aqui para todos ustedes:

Código Delphi [-]
...
      DMMySQL.q_DocsClienteXReclamo.Close;
      DMMySQL.q_DocsClienteXReclamo.Params[0].AsInteger:=StrToInt(lblIDReclamo.Caption);
      DMMySQL.q_DocsClienteXReclamo.Open;
      DMMySQL.q_DocsClienteXReclamo.First;

      while not DMMySQL.q_DocsClienteXReclamo.Eof do
      begin
          for i := 0 to lstDocsCliente.Count-1 do
          begin
            posPunto:=pos('.', lstDocsCliente.Items[i]);
            num:=StrToInt(copy(lstDocsCliente.Items[i],0,PosPunto-1));
            if(num=DMMySQL.q_DocsClienteXReclamo.FieldByName('iddocCliente_fk').AsInteger)then
              lstDocsCliente.Checked[i]:=true;
          end;
          DMMySQL.q_DocsClienteXReclamo.Next;
      end;
...