procedure part_of_starting_up(n: string....)
var
  f: typed file;
begin
  try
    try
      assign / reset(f, n);
      while not eof(f) do
        read_and_process_each_record(f);
    finally
{$I-} { Нет необходимости жаловаться, если закрытие прошло неудачно. }
      close(f);
{$I+}
    end;
  except
    on E: EInOutError do
      case e.ErrorCode of
        nn1: messagedlg('невозможно найти/открыть файл');
        nn2: messagedlt('ошибка чтения файла');
      end;
  end
  // (и т.д.)