О дешифровке приборного файла

Var
jWord  :  Word;
fI  :  File of Word;
...
 
Begin
...
 
While NOT(EOF(fI)) do
begin
  Кead(fI,jWord);
  Write(fF,IntToStr(jWord)+', ');
end;  //  While NOT(EOF(f))...
...

TWord=record
case Byte of
0:(W:Word);
1(b1:Byte; b2:Byte);
end;
 
var W:TWord;
  b:Byte;
begin
W.W:=$ABCD;//В 16-теричном виде это 43981
b:=W.b1;
W.B1:=W.b2;
W.b2:=b;
//Теперь W.W=CDAB;//Или 52651
end
 
//Это простейший способ разметки данных на уровне байтов
//Если делать нефиг, то можно указатель на байт объявить
//И просто ходить по памяти. В Си на этом все построено.
// Но сесть при этом можно на такой гвоздь
//Что задница потом неделю болеть будет
//Из реального проекта более сложный случай
type
TI500AI=packed array[1..8] of Single;
//packed чтобы устранить автовыравнивание
TI500ReadAIsResponse=packed record
    case Byte of
    0:(
      Number:Byte;
      Command:Byte;
      ReadBytes:Byte;
      Value:TI500AI;
      CRCLO:Byte;
      CRCHi:Byte;
      );
    1:(Bytes:array[0..36] of Byte);
  end;
 
//Тут приходящий с оборудования массив из 37 байтов накладывается на структуру с полями из байтов и массива Single

var p:^Byte;
  W:Word;
  b1,b2:Byte;
 
begin
p:=@W;
b1:=(p^);//Первый байт W;
Inc(p);
//Операция Inc применительно к указателю
//увеличивает его значение на размер типа, на который указывает
//В данном случае на 1.
//p:=p+1; тоже возможно, с Delphi 2009 если включена директива $PointerMath
//В более ранних версиях это делалось, через приведение pointer к целому Integer(p):=Integer(p)+1;
b2:=(p^);//Второй байт W.
end;
//Но если ошибетесь, то просто не будете понимать, где ошибка

const
  CHBUF_SIZE =   80;
  HDR_SIZE   = 1600;
 
type
  int16 = smallint;
  TCharBuf = array[0..CHBUF_SIZE - 1] of AnsiChar;
  PHeaderItem = ^THeaderItem; // указатель
  THeaderItem = packed record
    RecCount:    int16;     // short 2 Число записей
    AverJmp:     single;    // float 4 Средний скачек между цифрами
    Min:         int16;     // shor 2 Минимум
    Max:         int16;     // shor 2 Максимум
    WTF_0:       int16;     // shor 2 0.32 соответствует
    SampPrd:     single;    // float 4 Период дисретизации
    LastPtCount: int16;     // short 2 Число точек в последней записи
    ChannelName: TCharBuf;  // char 80 Название канала
    TimeStart:   single;    // float 4 Время начала
    TimeStop:    single;    // float 4 Время конца
    Day:         int16;     // short 2 День начала
    WTF_1:       int16;     // short 2 ???????????????
    WTF_2:       int16;     // short 2 ???????????????
    WTF_3:       int16;     // short 2 ???????????????
    Month:       int16;     // short 2 Месяц начала
    Year:        int16;     // short 2 Год начала
    WTF_80:      TCharBuf;  // char 80
  end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  hdr: THeaderItem;
  fs: TFileStream;
  sName: TCharBuf;
  v: SmallInt;
  rb, i: integer;
begin
  if OpenDialog1.Execute then
  begin
    Memo1.Lines.Clear;
    Memo1.ScrollBars := ssVertical;
    fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyNone);
    fs.Read(hdr, SizeOf(hdr));
    // Теперь можно прочитать данные из записи hdr
    Memo1.Lines.Add(Format('Rec count: %d', [hdr.RecCount]));
    Memo1.Lines.Add(Format('Average jump: %f', [hdr.AverJmp]));
    Memo1.Lines.Add(Format('Min: %d', [hdr.Min]));
    Memo1.Lines.Add(Format('Max: %d', [hdr.Max]));
    Memo1.Lines.Add(Format('Неизвестно 1: %d', [hdr.WTF_0]));
    Memo1.Lines.Add(Format('Sample period: %f', [hdr.SampPrd]));
    Memo1.Lines.Add(Format('Число точек в последней записи: %d', [hdr.LastPtCount]));
    OemToChar(hdr.ChannelName, sName);
    Memo1.Lines.Add(Format('Название канала: %s', [sName]));
    Memo1.Lines.Add(Format('Время начала: %s', [TimeToStr(hdr.TimeStart)]));
    Memo1.Lines.Add(Format('Время окончания: %s', [TimeToStr(hdr.TimeStop)]));
    Memo1.Lines.Add(Format('День начала: %d', [hdr.Day]));
    Memo1.Lines.Add(Format('Неизвестно 2: %d', [hdr.WTF_1]));
    Memo1.Lines.Add(Format('Неизвестно 3: %d', [hdr.WTF_2]));
    Memo1.Lines.Add(Format('Неизвестно 4: %d', [hdr.WTF_3]));
    Memo1.Lines.Add(Format('Месяц начала: %d', [hdr.Month]));
    Memo1.Lines.Add(Format('Год начала: %d', [hdr.Year]));
    OemToChar(hdr.WTF_80, sName);
    Memo1.Lines.Add(Format('Неизвестно 5: %s', [sName]));
    // И т.д.
    fs.Seek(1600, 0);
    // Дальше читать так же
    Memo1.Lines.BeginUpdate;
 
    for i := 0 to 99 do begin
      rb := fs.Read(v, SizeOf(v));
      Memo1.Lines.Add(IntToStr(v));
    end;
 
//    repeat
//      rb := fs.Read(v, SizeOf(v));
//      Memo1.Lines.Add(IntToStr(v));
//    until rb < SizeOf(v);
 
    Memo1.Lines.EndUpdate;
  //   ...
 
 
    FreeAndNil(fs);
  end;
end;

var Value: AnsiString;
...
OemToCharBuffA(PAnsiChar(Value), PAnsiChar(Value), ValSize);