Сохранить PNG как grayscale 16bit

// var pLo, pHi:pByteArray;
// сохранил файл png через photoshop (grayscale; 16bit/channel)
png.LoadFromFile('C:\test.png');
for i:=0 to png.Height-1 do
begin
  pLo := png.ScanLine[i];
  pHi := png.ExtraScanline[i];
  for j:=0 to png.Width-1 do
    w := pLo[j] or pHi[j] shl 8; // вроде читает
  //в pHi[j] не нули 
end;
 
// теперь пытаюсь записать свои данные
for i:=0 to png.Height-1 do
begin
  pLo := png.ScanLine[i];
  pHi := png.ExtraScanline[i];
  for j:=0 to png.Width-1 do
    pHi[j] := j;// записываю свои данные( не нули )
end;
png.SaveToFile('C:\test.png'); // сохраняю
 
png.LoadFromFile('C:\test.png');
for i:=0 to png.Height-1 do // попытаюсь прочитать записанное
begin
  pLo := png.ScanLine[i];
  pHi := png.ExtraScanline[i];
  for j:=0 to png.Width-1 do
     //в pHi[j] ВСЕ не нули !!
end;

{Copy grayscale images with 16 bits}
procedure TChunkIDAT.CopyNonInterlacedGrayscale16(
  Src, Dest, Trans{$IFDEF Store16bits}, Extra{$ENDIF}: pByte);
var
  I: Integer;
begin
  FOR I := 1 TO ImageWidth DO
  begin
    {Windows does not supports 16 bits for each pixel in grayscale}
    {mode, so reduce to 8}
    Dest^ := Src^; inc(Dest);
    {$IFDEF Store16bits}
    Extra^ := pByte(Src + 1)^; inc(Extra);// <- вот заветная строка чтения
    {$ENDIF}
 
    {Move to next pixel}
    inc(Src, 2);
  end {for I}
end;

{Copy memory to encode grayscale images with 2 bytes for each sample}
procedure TChunkIDAT.EncodeNonInterlacedGrayscale16(Src, Dest, Trans: pByte);
var
  I: Integer;
begin
  FOR I := 1 TO ImageWidth DO
  begin
    //Now we copy from 1 byte for each sample stored to a 2 bytes (or 1 word)
    //for sample
    pWORD(Dest)^ := pByte(Src)^; inc(Dest, 2); // <-ёж твой свет что это такое?
    {Move to next pixel}
    inc(Src);
  end {for I}
end;