[Страдалецъ]

Есть такой компонент TCheckListBox видимо вам он и нужен.
Работать с ним можно так:

Код:

Var i: Integer;
begin
 for i := 0 to CheckListBox1.Count - 1
 do if CheckListBox1.Checked[i]
    then Memo1.Lines.Add(CheckListBox1.Items[i])
end;