procedure TForm1.FormCreate(Sender: TObject);
begin
CheckListBox1.Items.Add('Asma');
CheckListBox1.Items.Add('Dolor');
CheckListBox1.Items.Add('Falta de aire');
CheckListBox1.Items.Add('muchos mas');
CheckListBox2.Items.Add('mas');
CheckListBox2.Items.Add('mas');
CheckListBox2.Items.Add('como 20 mas');
end;