Либо перекрываешь перерисовку итема с выводом только ExtractFileName(ListBox1.Items[i]), либо заводишь дополнительный список, в котором держишь полные имена файлов, а в основной добавляешь тот же ExtractFileName(OpenDialog1.FileName), либо в свойство Object ListBox добавляешь ссылку на строку с полным именем, а в основной текст все тот же Extract...
|