Eintrag in Listview nach Eingabe formatieren

[RWarnecke]

Hallo zusammen,

ich ändere einen Wert in einer TAdvListView. Dieses funktioniert auch wunderbar. Ich möchte aber nun nach der Änderung den Wert noch entsprechend darstellen. Hier meine beiden Versuche, die leider nicht funktionieren :

Versuch 1:

Delphi-Quellcode:

procedure TMainForm.AdvLV_GrunddatenzuschuesseEdited(Sender: TObject;
  Item: TListItem; var S: string);
var
  tmpBetrag: Extended;
begin
  case AdvLV_Grunddatenzuschuesse.ColumnIndex of
    0 : begin
          // ToDo Something
        end;
    1 : begin
          if TryStrToFloat(S, tmpBetrag) then
            AdvLV_Grunddatenzuschuesse.Selected.SubItems.Strings[0] := Format('%2.2n €', [tmpBetrag]);
        end;
    2 : begin
          // ToDo Something
        end;
  end;
end;

Versuch 2:

Delphi-Quellcode:

procedure TMainForm.AdvLV_GrunddatenzuschuesseEdited(Sender: TObject;
  Item: TListItem; var S: string);
var
  tmpBetrag: Extended;
begin
  case AdvLV_Grunddatenzuschuesse.ColumnIndex of
    0 : begin
          // ToDo Something
        end;
    1 : begin
          if TryStrToFloat(S, tmpBetrag) then
            Item.SubItems.Strings[0] := Format('%2.2n €', [tmpBetrag]);
        end;
    2 : begin
          // ToDo Something
        end;
  end;
end;

Ihr werdet mir wahrscheinlich gleich sagen, dass Versuch 1 & 2 das gleiche ist. Das kann ich mir schon entsprechend vorstellen, nur leider funktionieren beide nicht. Es gibt auch keine Fehlermeldung. Es wird immer nur so angezeigt, wie ich es eingebe.

Was mache ich falsch ?