Listview -> checked?

[Illuminator-23-5]

Delphi-Quellcode:

function isCheckedItem: boolean;
var
  i: integer;
begin
  result := false;
  for i := 0 to listview1.Items.Count - 1 do
    result := result or Listview1.Items[i].Checked;
end;

das ist die primitivste methode. ich weiß nicht, ob diese Funktion schon irgendwo implementiert ist...