[OO] checklistbox erweitern

[Go2EITS]

Meine Frage an die DP.

Ich stehe mit OO auf Kriegsfuss. Bevor ich nun eine Woche benötige, um mich reinzulesen, traue ich mich mal hier her und frage, wie ich die Checklistbox um eine Boolean Funktion erweitere:
Dies dürfte auch für andere User der DP interessant sein.

Es scheint unter den Methoden der Checklistbox keine zu geben, die alle Einträge, die mit Hacken versehen sind, zu löschen. Daher mein "Rahmen:"

Delphi-Quellcode:

Procedure DeleteChecked:Boolean;
begin
result:=False
if checklistbox1.SelCount=0 then exit;
for i:=checklistbox1.count-1 downto 0 do
  begin
   if checklistbox1.Checked[i]=true then
    checklistbox1.items.Delete(i);
end;
result:=true;
end;

Wie gehe ich vor, um diese Methode zu ergänzen?
Danke für die Hilfe im voraus!

Go2EITS