.
if _prop_BigEndian then Reverse(@i);
.
procedure THIDataToFileEx.Reverse;
var pb,pe:^byte; b:byte;
begin
   pb := p; pe := pb; inc(pe, _prop_DataSize-1); 
   while dw(pb) < dw(pe) do begin
      b := pb^; pb^ := pe^; pe^ := b;
      inc(pb); dec(pe);
   end;
end;