Сдается мне, не все так просто.
Надо в Edit кнопку впихнуть со стрелкой вниз и по щелчку на ней отображать ListBox поверх всего и обработать там событие выбора.
А Items тогда типа
Код:
function TMyComboBox.GetItems : TStrings;
begin
Result := FListBox.Items As TStrings;
end;