Загрузи строки в TStringList и сделай ему Sorted:=true;
После этого по моему можно сделать массив из структур типа той, что я указал выше - TTreeNode и целое. Индекс элемента массива будет уровень на который надо добавлять. А целое число - номер. В начале весь массив забить нулями и нилами.
Парсишь строку. Выделяешь 1-е число и сравниваешь с первым число в массиве, если совпадают идешь дальше пока не найдешь различие. Добавляешь узел как Child узлу который указан в соотв. ячейке и записываешь в следующую ячейку ссылку на только что добавленный.
Т. е. начал ты работать. у тебя в ячейке 1 лежит 0 записан узел nil. Ты считал 1. Сразу есть различие, ты добавляешь узел к nil (т. е. в корень) в ячейку 2 пишешь ссылку новый узел и 0, а в ячейку 1 в поле Integer 1. Далее считал 1 и еще раз 1. Т. е. узел2-го уровня. Из ячейки 2 получаешь узел куда надо новый добавлять.
По моему должно работать и никакого поиска по дереву, все кэширно.
Добавлено @ 15:12
С точками в конце думаю надо решить, они есть или нет. Думаю если есть парсить проще. Просто после выделения числа проверяешь номер текущего символа на последность.