[Aristarh Dark]

Код:

var
  i:integer;
begin
  MyListBox.Items.Clear;
  for i:=0 to MyCheckListBox.Items.Count-1 do
    if MyCheckListBox.Checked[i] then
      MyListBox.Append(MyCheckListBox.Items[i]);
end;