Сравнить два списка и вывести отсутствующие

[Shouldercannon]

Доброго времени суток!
Ушёл в цикл, не могу решить проблему.
Есть два ListView

  for I := 0 to 2 do
  begin
    Item := Listview1.Items.Add;
    Item.Caption := IntToStr(I);
  end;

  for I := 0 to 2 do
  begin
    Item := Listview2.Items.Add;
    Item.Caption := IntToStr(I);
  end;

В первом ListView
0
1
2
Во втором ListView
0
1
2

Я удаляю из второго ListView 2, в итоге должно вывестись ShowMessage с 2

var
  SL: TStringList;
  I, I2: Integer;
begin
  SL := TStringList.Create;

  for I := 0 to ListView1.Items.Count - 1 do
  begin
    for I2 := 0 to ListView2.Items.Count - 1 do
    begin
      if not (ListView1.Items[I].Caption = ListView2.Items[I2].Caption) then SL.Add(ListView1.Items[I].Caption);
    end;
  end;

  ShowMessage(SL.Text);
  FreeAndNil(SL);
end;

Вижу, что ерунда, но исправить не могу.

[tsar_]

Набросал

procedure TForm1.Button2Click(Sender: TObject);
var i,j: integer;
    Buff: string;    //буфер для ShowMessage
    Match: boolean;  //флажок "равно/не равно"
begin
  Buff:='';

  //перебираем элементы первого ListView
  for i:=0 to ListView1.Items.Count-1 do
    begin
    //устанавливаем false перед перебором элементов второго ListView
    Match:=false;  
    
    for j:=0 to ListView2.Items.Count-1 do
      //если элементы равны
      if (ListView1.Items[i].Caption = ListView2.Items[j].Caption) then
        begin
        Match:=true;
        Break;
        end;

    //если для i-го элемента первого ListView нет совпадений,
    //добавляем инфу в буфер   
    if not Match then
      Buff:=Buff+'Нету '+ListView1.Items[i].Caption+#10;    
    end;

  //показываем, че вышло    
  ShowMessage(Buff);
end;

[min@y™]

Вижу, что ерунда, но исправить не могу.

я тоже вижу.
а чо сделать-то надо было?