CheckListBox1 добавление содержимого item в бд

[spotip]

есть CheckListBox1 в items прописан некий текст, как при установке галочки возле определённого текста внести этот текст в бд Microsoft SQL2008r, делаю так:

procedure TForm1.Button1Click(Sender: TObject);
var
add:String;
i : integer;
begin
for i:=0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[i] then

add:=quotedstr(Unit1.Form1.CheckListBox1.Items.Strings[i]);
with Unit2.DataModule2.HelpQuery1 do
begin
close;
SQL.clear;
SQL.Add('exec new_tur '+add);
ExecSQL;
Unit2.DataModule2.Tur_Query1.Active:=False;
Unit2.DataModule2.Tur_Query1.Active:=True;
end;
end;

выдаёт list index out of bounds (6),
делаю так:
a

dd:=quotedstr(Unit1.Form1.CheckListBox1.Items.GetText);

в базу пишет все записи items, подскажите как реализовать.

[Аватар]

Выход за пределы массива. По идее здесь

for i:=0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[i] then

add:=quotedstr(Unit1.Form1.CheckListBox1.Items.Strings[i]);

но тут все правильно, за исключением того, что выберется только текст по последней галочке. И галочек вообще может не быть (что в базу тогда запишешь?). Подозреваю, что ошибка в другом участке кода

Как ведет себя так:

for i:=0 to CheckListBox1.Items.Count-1 do
  if CheckListBox1.Checked[i] then add:=quotedstr(CheckListBox1.Items.Strings[i]);

или

for i:=0 to CheckListBox1.Count-1 do
  if CheckListBox1.Checked[i] then add:=quotedstr(CheckListBox1.Items.Strings[i]);

[spotip]

Как ведет себя так:

for i:=0 to CheckListBox1.Items.Count-1 do
  if CheckListBox1.Checked[i] then add:=quotedstr(CheckListBox1.Items.Strings[i]);

или

for i:=0 to CheckListBox1.Count-1 do
  if CheckListBox1.Checked[i] then add:=quotedstr(CheckListBox1.Items.Strings[i]);

[/QUOTE]

и в первом и во втором примере пишет: list index out of bounds (6), 6 я так понимаю количество горизонтальных строк записанные в items
ну а на счёт что в базу запишу при 0 значении, ну поидее я могу в базе разрешить пустое значение, как-то так наверное.
Может я зря эту кухню затеял, может в dbgrid есть возможность из Pick List a выбрать два и более значения ?, одно выпадающее значение вносить у меня получается а вот 2...и более никак.