[t116]

St := ExtractFileDir(ParamStr(0)) + '\Абоненты\' + Edit2.Text;

тоже самое ShowMessage
Может утром разберусь. устал

[angvelem]

Ты сначала глянь, куда сохранил. Мне так кажется файл улетел неизвестно куда.

[t116]

angvelem Огромное Вам спасибо. Ошибка нашлась. Имя файла формируется в Edit2.Text а считывать надо с Edit1.Text.

Код:

St := ExtractFileDir(ParamStr(0)) + '\Абоненты\' + Edit1.Text;