Fórum Simples comaração entre dois listbox... não to consiguindo.. #323613

...
var
  Indice: Integer;
begin
  // Verifica se algo está selecionado no ListBox2
  // Nota: caso MultiSelect = True, sempre o 1º item
  // está selecionado, o que torna este teste sempre
  // verdadeiro.
  if not (ListBox2.ItemIndex = - 1) then
  begin
    Indice := ListBox1.Items.IndexOf(ListBox2.Items[ListBox2.ItemIndex]);
    if not (Indice = -1) then
      ListBox1.Items.Delete(Indice);
  end;
end;

...
var
  I, Contador: Integer;
begin
  // Verifica se algo está selecionado no ListBox2
  // Nota: caso MultiSelect = True, sempre o 1º item
  // está selecionado, o que torna este teste sempre
  // verdadeiro.
  if not (ListBox2.ItemIndex = - 1) then
  begin
    // Prepara as variáveis
    I := 0;
    Contador := ListBox1.Items.Count;
    // Percorre o ListBox1 procurando pelo item selecionado no ListBox2
    while I < Contador do
    begin
      // Se encontrar correspondência...
      if ListBox1.Items[I] = ListBox2.Items[ListBox2.ItemIndex] then
      begin
        // Deleta o ítem.
        ListBox1.Items.Delete(I);
        // Decrementa o contador de ítens.
        Dec(Contador);
      end;
      // Incrementa o controlador do laço
      Inc(I);
    end;
  end;
end;