Конвертер в Delphi

[thy13]

как на делфи исполнить конвертер из g.711 a-law 8 kHz mono в wav?

  // Функция чтения из файла импульсно-кодовой модуляции закон "А"
      for N:=0 to Size-1 do
      begin
        tempb := P^[N];
        tempb := ((not tempb) and $55) or (tempb and $AA) ;    // инверсия четных битов
        tempm := (tempb and $70) shr 4;                        // выделение порядка
        if tempm <> 0 then
        begin
          tempw := ((tempb and $0F) shl 1) + 32 ;  // выделение мантиссы
          tempw := tempw shl (tempm +2)            // восстановление абсолютной величины
        end
        else tempw := (tempb and $0F) shl 4;
        if (tempb and $80) <> 0                     // восстановление знака числа
            then POut^[N] := -tempw
            else POut^[N] := tempw;
      end;
      //  Функция конвертации закончена

может быть в чем то ошибка?

[veniside]

в чем ошибка не знаю, вот относительно рабочий код:

// -- --
procedure alaw_expand(lseg: long; logbuf: pointer; linbuf: pInt16Array);
var
  n, ix, mant, iexp: int;
begin
  for n := 0 to lseg - 1 do begin
    //
    ix := pArray(logbuf)[n] xor $0055;	//* re-toggle toggled bits */
    //
    ix := ix and $007F;	//* remove sign bit */
    iexp := ix shr 4;	//* extract exponent */
    mant := ix and $000F;	//* now get mantissa */
    if (iexp > 0) then
      mant := mant + 16;	//* add leading '1', if exponent > 0 */
    //
    mant := (mant shl 4) + $0008;	//* now mantissa left justified and */
                                                //* 1/2 quantization step added */
    if (iexp > 1) then	//* now left shift according exponent */
      mant := mant shl (iexp - 1);
    //
    if (pArray(logbuf)[n] > 127) then	//* invert, if negative sample */
      linbuf[n] := mant
    else
      linbuf[n] := -mant;
  end;
end;

pInt16Array - указатель на массив int16
pArray - указатель на массив байт