[m1sclick]

Я вижу ты совсем недалекий.....

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
  i: integer;
begin
  str:='';
  for i := 0 to CheckListBox1.Items.Count - 1 do
    if CheckListBox1.Checked[i] then
      str:= str+CheckListBox1.Items.Strings[i]+', ';
  Edit1.Text:=str;;
end;

Этот код копирует названия выделенных элементов в Edit.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
  i: integer;
begin
  str:='';
  for i := 0 to CheckListBox1.Items.Count - 1 do
    str:= str+CheckListBox1.Items.Strings[i]+', ';
  Edit1.Text:=str;;
end;

Этот код копирует названия всех элементов в Edit - даже не выделенных.

Для заметки: я руководствовался ссылкой что дал вчера ибо прежде никогда не использовал этот элемент. Если тебя это не устроит то я даже не знаю, пытайся и дальше присвоить в string - boolean.