[Alegun]

Сообщение от freya_pc

...

Код:

const
txt: array[0..4] of string = ('первая','вторая','третья','четвёртая','итд.');
...
var
i: integer;
begin
Memo1.Clear;
for i:= 0 to High(txt) {CheckListBox1.Count-1} do 
    if CheckListBox1.selected[i] then Memo1.Lines.Add(txt[i]);
end;