har brug for hjælp

jeg bruger den kode til at søge i min listbox, men alle de resultater bliver lagt over i listbox2

jeg vil gerne have den søger i listbox1, clear listbox1 og så skriver alle resultaterne i listbox1.

jeg har prøvet at gemme "I" i en tstringlist, men kan ikke rigtigt få det til at virke

var
 I:integer;
 soeg:TStringList;
 begin

For I:=0 to Form1.Listbox1.items.Count-1 do
 begin
  form1.Listbox1.ItemIndex:=I;
  if Pos(LowerCase(Edit1.text) ,LowerCase(form1.Listbox1.Items.Strings[I]))>0 then
  ListBox2.items.Add(form1.Listbox1.Items.Strings[I]);