CheckListBox und virtuelle Einträge - wieso kein Checked?

[Sir Rufo]

Moinsen,

da gibt es eine tolle TCheckListBox die man per Style auf lbVirtual stellen kann.
Aber checken lässt sich da nix ... oder ich check es grad nicht

In dem Event "OnData" (da hätte ich jetzt die Checked-Eigenschaft erwartet) gibt es aber nur Data als string und da wird nur der Text gesetzt.

Wer weiß da Rat?

Delphi-Quellcode:

unit frmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst;

type
  TFMain = class( TForm )
    CheckListBox1 : TCheckListBox;
    procedure CheckListBox1Data( Control : TWinControl; index : Integer; var Data : string );
    procedure FormCreate( Sender : TObject );

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FMain : TFMain;

implementation

{$R *.dfm}

procedure TFMain.CheckListBox1Data( Control : TWinControl; index : Integer; var Data : string );
  begin
    Data := Format( 'Data %d', [ index ] );
  end;

procedure TFMain.FormCreate( Sender : TObject );
  begin
    CheckListBox1.Style := lbVirtual;
    CheckListBox1.Count := 10;
  end;

end.