Code wird nicht ausgeführt - warum? (erledigt, danke an Popov)

[Popov]

Delphi-Quellcode:

procedure Test(Item: TListItem; i: Integer; Daten: TMeineDaten);
const
  Schwadawum: array[Boolean] of String = ('nicht gesetzt.', 'gesetzt');
begin
  //ShowMessage(Format('i ist: %d; Caption: %s', [i, Item.Caption]));

  //ShowMessage(Format('Daten aus Bagage: %s und %d', [Daten.Str, Daten.Int]));

  ShowMessage(Format('Die Checkbox ist %s', [Schwadawum[Item.Checked]]));
end;

EDIT:

Delphi-Quellcode:

   for j := 0 to ListView1.Items.Count - 1 do
    begin
     if (not ListView1.Items[j].Checked) and ItemGefunden(ListView1.Items[j], i) then

Warum gehst du alle Items durch. Du hast doch das eine Item, das du angeklickt hast, doch geschickt. Du mußt nur das abfragen.