TCheckListBox Вопрос

[Рома]

Я новенький в програмировании, если кто может подскажите!!!
К примеру Есть програмка от Украинского оператора мобильной связи Лайф для отправки смс через интернет её использует служба такси и надо сделать таким образом чтоб в окне TCheckListBox где можно было-бы отметить нужные номера телефона на которые он отправляет!!!
т.е Есть к примеру вот такой вот код
'<recipient address="380933245001">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245002">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245003">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245004">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245005">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245006">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245007">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245008">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245009">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245010">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245011">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245012">"'+ Edit1.Text + '"</recipient>'+
'<recipient address="380933245013">"'+ Edit1.Text + '"</recipient>'+
Там где '<recipient address="380933245012"> номер телефона он должен брать с TCheckListBox и вставлять в поле где сейчас находится номе а те номера которые небудут отмечены чтоб перед ними ставил //
Заранее спасибо!!!

[Virtson]

CheckListBox.items[i].checked

[Рома]

А как в этот TCheckListBox Добавлять данные???
Распишите поподробнее я же говорил что новичёк!!!

[vitalik007]

checkbox1.items.add('свой текст');

[Рома]

Сделал я два клика по созданному CheckListBox оно меня перевело в окошко там где сам код я попробовал добавить checkbox1.items.add('Свой текст') А оно в окошке не появляется

[Рома]

Люди ну помогите пожалуйста.
Как мне надо написать комманду чтоб он воспринимал одну строку только тогда когда она отмечена

[vitalik007]

если ты хочешь выделенный текст

то checkListbox.checked.caption

[Рома]

Там весь текст находится не в Caption а в Items а комманду cheked Delphi Вообще не знает!!!

[Alex21]

 
procedure TForm1.CheckListBox1Click(Sender: TObject);
 var
   ind : integer;
   str:string;
begin
  ind:=Form1.CheckListBox1.ItemIndex;
  if Form1.CheckListBox1.Checked[ind] then
    str:=Form1.CheckListBox1.Items[ind];
end;

[Рома]

И неработает оно таким образом!!! Я Вставил этот код всё нормально только когда я запускаю програмку и пытыюсь отправить смс с неотмеченным номеров он всё равно отпраляется!!! ПЛЗ Помогите