ListView suchen

[Larsi]

Delphi-Quellcode:

var gefunden: Boolean;
i: integer;
begin
gefunden := false;
i := 0;
while not gefunden and (i < Form3.ListView1.Items.Count) do
  begin
   if Form3.ListView1.Items[i].Caption = Edit1.Text then
      gefunden := true;

    Form15.ShowModal;
Form15.ListView1.Items.AddItem(Form3.ListView1.Items[i]);
inc(i);
  end;
end;

wenn ich das so mache gehts net Der zeigt in dem anderen ListView nichts an was mache ich da denn falsch??????

MFG Lars W.