Delphi-PRAXiS - Delphi CheckListBox Einträge löschen die nicht in TStringList stehen

Hallo Forum,

mag sein das mein Hirn bereits im Wochenende ist, anders kann ich es mir nicht erklären.

Ich habe ein TStringList mit dem Inhalt

Katze
Maus
Pferd
Spinne

Nun habe ich eine TCheckListBox, in dem beispielhaften Inhalt

Hund
Katze
Maus
Schlange
Pferd
Spinne

Die TStringList gilt als Vorgabe, und alle Items der TCheckListBox die NICHT in der TStringList vorhanden sind, sollen gelöscht werden.
An für sich kein Problem, allerdings darf der Checked-Status der nach dem Löschen übrig gebliebenen Items nicht verloren gehen.

Mein Lösungsansatz wäre nun der, dass ich mir den Status all jener Items der TCheckListBox merke, die in der TStringList vorkommen.
Danach würde ich dann den Inhalt der TCheckListBox löschen, dann Inhalt der TStringList rein schreiben, und danach den Checked-Status der Items der CheckListBox, anhand meiner Gemerkten ItemListe wieder herstellen.

Ist das auch eleganter zu bewerkstelligen?
Denk ich vllt. einfach zu kompliziert?

Schönes Wochenende und Danke an die, die Ihre Wochenendzeit für ein paar Hilfestellungen an mich Opfern.

- Aurum