TIniFile und DeleteKey

[newuser01]

Hallo

Ich möchte gerne mit "DeleteKey" ein Eintrag aus der ini löschen funktioniert nur leider nicht wo liegt der Fehler?

Delphi-Quellcode:

procedure TfMain.btnDeleteClick(Sender: TObject);
var
i:integer;
Ini:TIniFile;
begin

//Ausgewählter Eintrag ist zu löschender Key in 'Properties'
for i := 0 to ListBox1.Count -1 do
begin

  if ListBox1.Selected[i] = true then
  begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'setting.ini');
  ListBox1.Items.Delete(i);
  Ini.DeleteKey('Properties',ListBox1.Items.Strings[i]);
  end
    else
        begin
  end;//if

end;//for

Ini.Free;