Class Helper Problem für TListItem

[Roaster]

Hi,

ich habe eine neue Klasse abgeleitet von TCustomListView erzeugt:
TMyListView = class(TCustomListView) Die Listitems dort sollten eine Checkbox oder Radiobutton erhalten, dies klappte bisher auch ganz gut, ist aber auch nicht das Problem hier.
Ich habe die Klasse TListItem mit Hilfe einer Helper Klasse erweitert um dort ein Property Checked einzufügen. Mein Problem ist jetzt, wie kann ich diese Property, oder besser die dazugehörige Variable FChecked auf einen initialen Wert setzen.

Delphi-Quellcode:

  TListItemHelper = class helper for TListItem
  class var
    FChecked: Boolean;
    procedure SetChecked(Value : Boolean);
    function GetChecked : Boolean;
  published
    property Checked : Boolean read GetChecked write SetChecked;
  end;

Ein Coding aus der Hauptklasse TMyListView, wie beispielsweise

Delphi-Quellcode:

procedure TMyListView.ToggleSelectedCheck;
var
    ListItem : TListItem;
begin
[..]
    ListItem := GetNextItem(nil, sdAll, [isSelected]);
           ListItem.Checked := not ListItem.Checked;

funktioniert sehr gut, nur wie kann ich beim Hinzufügen eines neuen Listitems die Variable FChecked auf False setzen?