Ошибка I/O Result 103

  //добавление записей в телефонную книгу
procedure TSMS.N14Click(Sender: TObject);
var
F: TextFile;
FN: string;
begin
fSettings.Caption:='Настройка программы';
fSettings.Height:=451;
fSettings.Width:=409;
fSettings.PageControl1.Visible:=False;
fSettings.PageControl2.Visible:=True;
fSettings.PageControl2.Left:=4;
fSettings.PageControl2.Top:=8;
fSettings.BitBtn1.Left:=8;
fSettings.BitBtn1.Top:=384;
fSettings.BitBtn2.Left:=318;
fSettings.BitBtn2.Top:=384;
fSettings.ShowModal;
try
  FN :=ExtractFilePath(ParamStr(0)) + 'Config\Phone.ini';
  AssignFile(F,FN); //подключение к файловой переменной
   if FileExists(FN) then //определяем существует ли файл
    begin //Если есть
 
      if (fSettings.LEName.Text <> '') and (fSettings.LEPhone.Text <> '') then
        begin
          {I-}
          Append(F); //открываем файл для записи данных
          {I+}
          if IOResult = 0 then
            begin
              Writeln(f,fSettings.LEName.Text+'='+fSettings.LEPhone.Text); //пишем в файл
            end
          else
            Exit;
        end;
    end
    else
      begin //Если нет
        if (fSettings.LEName.Text <> '') and (fSettings.LEPhone.Text <> '') then
          begin
            Rewrite(F); //создаем пустой файл
            Writeln(f,fSettings.LEName.Text+'='+fSettings.LEPhone.Text); //пишем в файл
          end
        else
          Exit;
      end;
        finally
         CloseFile(F); //закрываем файл 
        end;
end;

//определяем существует ли файл
 if FileExists(FN) then Append(FN) //если да, открываем для дозаписи
 else  Rewrite(F); //иначе создаем пустой файл
 if (fSettings.LEName.Text <> '') and (fSettings.LEPhone.Text <> '') then
 Writeln(f,fSettings.LEName.Text+'='+fSettings.LEPhone.Text) //пишем в файл
 else ShowMessage('Вы не ввели данные');
 CloseFile(F); //закрываем файл
end;