AdvSearchEdit + AdvSearchList

[tarakan1983]

Здравствуйте.
Есть задача : реализовать автоматическое заполнение адреса из сервиса dadata.ru(ак на скрине)
Алгоритм такой : на событии OnChange запускается поток, в котором идет обращение в сервис dadata.ru. Полученый результат записывается в Stringlist, потом по Synchronize добавлять в визуальный компонент.
Перепробовал МНОГО TEdit и TCombobox.
Наиболее приемлемо для меня ведет себя AdvSearchEdit из набора TMS VCL (в связке с AdvSearchList).
Есть пара моментов :
1. После того как ЭНТЕРОМ выбираешь нужный item из выпадающего списка происходит SelectAll всего что есть в AdvSearchEdit.Text, а мне нужно чтобы курсор становился в конец строки. У простого CombobBox есть событие procedure TForm1.ComboBox1CloseUp в нем я прописывал PostMessage(ComboBox1.Handle, WM_KEYDOWN, VK_END, 0). У этого компонента нет такого события, и все другие я перебрал не получилось. Подскажите как реализовать курсор в конец строки после выбора нужного item
2. Не понял почему, но иногда пропадает курсор в AdvSearchEdit, т.е. не видно где сейчас "каретка".

Прошу помощи с данным компонентом, либо подскажите, какой взять компонент для реализации поиска адреса как на скрине.