а можно добавить компоненту StrList точку doReplace (doReplace=Заменяет строку с индексом из потока на строку Str) как у ListBox?