checklistbox.deleteselected funzt nicht

[Go2EITS]

@Seehase
Danke für Deine Hilfe!

Die in der Checklistbox selectierten Einträge sollen gelöscht werden. Da verwechsle ich mal nix.
Hier mein Code:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
chklst1.items.Add('1');
chklst1.items.Add('2');
chklst1.items.Add('3');
end;

procedure TForm1.button1Click(Sender: TObject);
begin
chklst1.DeleteSelected;
end;

Ich habe es nochmals probiert.
Der Code löscht nur einen Eintrag. Den unteren.

Ich werfe nun cnwizzard raus.