[t116]

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

Код:

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