[[AgustinOrtu]]

Podes usar TCheckListBox

Pon en un form 2 TCheckListBox, (CheckListBox1 y CheckListBox2) y este codigo en el OnCreate:

Código Delphi [-]
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;

Salida: