ListView speichert nicht den aktuellen Inhalt

[delphinia]

Ich bennen ein Item in eienr ListView um

Delphi-Quellcode:

procedure TForm1.listviewEdited(Sender: TObject; Item: TListItem;
  var S: string);
begin
WriteComponentResFile('C:\Windows\config.db', listview);
end;

Leider wird bei dem WriteComponentResFile-Vorgang _nicht_ der aktuelle Inhalt also der gerade geänderte gespeichert.
Benenne ich daraufhin das Item noch einmal um wird der vorige Name des Items gespeichert!

Ergo immer das alte wird gespeichert!

Wie kann ich dieses Problem beheben?