Код:
OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];
if not OpenDialog1.Execute then Exit;
Edit1.Text := ExtractFilePath(OpenDialog1.FileName);
ListBox1.Items := OpenDialog1.Files;
Зачем записывать в ListBox путь к файлам? Ведь он для всех файлов будет один и тот же. А вот имена файлов без указания пути - вполне имеет смысл.