Удаление из LISTBOX

[program123]

Добрый день. возник вопрос.
есть 2 Листбокса, имеющие данные, как сделать чтобы понажатию на кнопку удалялись в обоих списках одинаковые элементы ??
например
Лист1 Лист2
мама сестра
папа брат
сестра мама

получаем:
Лист1 Лист2
папа брат

помогите

[_SERGEYX_]

Нужно при выборе элемента в одном листбоксе узнать есть ли такой же элемент во втором листбоксе

ListBox2.ItemIndex:=ListBox2.Items.IndexOf(ListBox1.Items[ListBox1.ItemIndex]);

Если оба элемента одинаковы - удаляем оба.
Сделай это в цикле.

[program123]

запутался.. если не трудно, напиши полностью пожалуйста

[Grag]

Проверено - мин нет!!!

Var
  j:integer;
begin
  for j:=ListBox1.Items.Count-1 downto 0 do
    if ListBox2.Items.IndexOf(ListBox1.Items[j])<>-1 then
      begin
        ListBox2.Items.Delete(ListBox2.Items.IndexOf(ListBox1.Items[j]));
        ListBox1.Items.Delete(j);
      end;