[Alegun]

Код:

var
i: integer;
begin
Memo1.Clear;
for i:= 0 to CheckListBox1.Count-1 do 
    if CheckListBox1.selected[i] then Memo1.Lines.Add('бла бла бла');
end;