Problem mit 2 Listviewkomponenten

[Capa]

Hi
folgendes Problem, habe 2 Listview komponenten und eine Suchfunktion
mit hilfe der Suchfunktion kann ich halt angeben in was er suchen soll (Spalte)
und wonach er suchen soll. Und dann wird quasi der Treffer von Listview1 nach Listview2 kopiert
ohne den Eintrag in Listview1 in irgendeiner art zu ändern.

Wenn ich das erste Suche gibts keine Probleme Subitems[0] passiert genau das was ich will
doch wenn ich in den anderen Subitems suche dann passiert es manchmal das der einfach in Listview1
zeilen löscht obwohl er da garnix löschen soll.

Dies ist die Procedure die als einzigstes aufgerufen wird.
Sieht da zufällig wer nen Fehler, bin am verzweifeln da ich ja normalerweise an Listview1 nix mache sondern
nur die daten von 1 nach 2 kopiere ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I,L: Integer;
begin
  ListView2.Items.Clear;
  for I := 1 to 5 do
  begin
    if (TRadioButton(FindComponent('RadioButton'+IntToStr(I))).Checked) then
    begin
      Label3.Caption := TRadioButton(FindComponent('RadioButton'+IntToStr(I))).Caption;
      L := I;
    end;
  end;
  for I := 0 to Listview1.Items.Count - 1 do
  begin
    if (pos(Edit1.Text, Listview1.Items[I].SubItems[L-1]) > 0) then
      ListView2.Items.AddItem(ListView1.Items[I]);
  end;
  Listview1.Visible := False;
  Listview2.Visible := True;
  Panel2.Visible := True;
  Label4.Caption := Edit1.Text;
end;

Thx und Mfg Capa