TSect = packed record
  Name: Array [0..7] of Byte;  //Имя секции.
  S_VSiz: DWORD;  //Виртуальный размер.
  S_RVA: DWORD;  //Виртувльное смещение.
  S_FSiz: DWORD;  //Размер в файле.
  S_FOfs: DWORD;  //Смещение в файле.
  S_Res: Array [0..11] of Byte;  //Не используем.
  S_Flag: DWORD;  //Флаг секции.
  end;

  NewSect.Name[0]:= ord('.');
  NewSect.Name[1]:= ord('N');
  NewSect.Name[2]:= ord('e');
  NewSect.Name[3]:= ord('w');  //Имя секции (произвольное).
  NewSect.Name[4]:= ord('S');
  NewSect.Name[5]:= ord('e');
  NewSect.Name[6]:= ord('c');
  NewSect.Name[7]:= ord('t');