Смотрю, и не вижу в упор второго вызова в этой строчке:
Код:
if OpenDialog1.InitialDir = '' then
OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
Цитата:
|
Тем самым окно с выбором файла открывается дважды
|
С чего оно тут второй раз должно открываться?