Erweiterung für zwei Klassen gleichzeitig schreiben

[blablab]

Hallo!

Ich habe eine kleine Erweiterung für die ListBox geschrieben mit der man die Items per Drag&Drop vertauschen kann.
TSwapListBox = class(TCustomListBox) Dasselbe möchte ich jetzt auch für die CheckListBox haben. Ich kann den zusätzliche Code von meiner SwapListBox 1:1 in SwapCheckListBox kopieren und es funktioniert. Allerdings ist das kein besonders guter Programmierstil, sobald ich eine kleine Änderung in SwapListBox mache muss ich die SwapCheckListBox anpassen.

Wie könnte man das besser machen?

Grüße
blablab