Problem mit entfernen von ListBox einträgen

[01001]

Wie der Titel des Themas schon sagt hab ich ein Problem mit dem löschen eines bestimmten Beitrags in einer TListBox. In einer ListBox habe ich ein paar einträge. Diese einträge sind auch in einer .ini Datei hinterlegt. Wenn ich jetzt zum beispiel die Einträge: Eintrag1, Eintrag2 und Eintrag3 in der ListBox habe und dann Eintrag3 aus der ListBox und aus der .Ini datei entfernen will löscht der in der ListBox Eintrag1 und Eintrag3 aber in der .Ini datei nur Eintrag3
Hier ist der Abschnitt der fürs löschen verantwortlich ist:

Delphi-Quellcode:

begin
 if Form2.ListBox1.Items.IndexOf(Edit1.Text) > -1 then
 begin
 try
    Ini:=TIniFile.Create(Result + 'Test.ini');
    ini.DeleteKey('Themen', Edit1.Text);
  finally
    Ini.Free;
  end;
  DeleteFileToRecycleBin(Result + Edit1.Text + '.txt');
  for i:=0 to Form2.ListBox1.Items.Count-1 do
  begin
    Form2.ListBox1.Items[i]:=Edit1.Text;
    Form2.ListBox1.Items.Delete(i);
  end;
  Form11.Visible := False;
 end
 Else
   begin
   Showmessage('Datei wurde nicht gefunden');
   Form11.Visible := False;
  end;
 end;

Kann mir jemand sagen wo der Fehler ist?