1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  Form1: TForm1;
   Checkzaehler:Integer;
implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if Checkbox1.Checked then inc(Checkzaehler);
 Memo1.Text:= 'Checklistbox war '+IntToStr(Checkzaehler)+' mal Gescheckt !';
end;