Delphi компонент, ComBoBox доработанный нужен

Использую Delphi неуникодный 2007.

Доработать ComboBox, либо добавить ему новое свойство позволяющее делать выпадающий список выровненный по правому краю по самому длинному итему в списке. То есть чтобы автоматически выравнивался выпадающий список при добавлении нового итема.

Иногда делают Хинты которые вылезают для итемов не влезающих по ширине в список, но меня это не устраивает.

Жду предложений.