[angvelem]

Хорошо, тогда попробуй так:

Код:

var
  St : String;
begin
  St := GetCurrentDir(ParamStr(0)) + '\Абонент\' + Edit5.Text;
  if FileExists(St) then
  begin
    ...
  end
  else
    ShowMessage('Файл не найден');