Помогите перевести с С функцию

[z768]

Вижу что здесь есть цикл, сдвиг и т.п.
Просто боюсь сам напартачить.

static byte[] Convert8888to4444(byte[] buf1) {
            byte[] buf2 = new byte[buf1.Length / 2];

            for (int i1 = 0, i2 = 0; i2 < buf2.Length; i1 += 2, i2++) {
                buf2[i2] = (byte)(((buf1[i1] >> 4) & 0x0f) | (buf1[i1 + 1] & 0xf0));
            }

            return buf2;
        }

[Человек_Борща]

type
  TByteArray = array of byte;

function Convert8888to4444(buf1;TByteArray):TByteArray;
var
 buf2:TByteArray;
 i1,i2:Integer;
begin
 SetLength(Buf2,Length(buf1) div 2);
 i1 := 0;
 i2 := 0;
 for i2 := 0 to Length(buf2) do
 begin
  i1 := i1 + 2;
  buf2[i2] := Byte(((buf1[i1] shr 4) and $0F) or ((buf1[i1+1]) and $F0));
 end;
 Result := buf2;
end;

как-то так. Писал прямо тут.

[z768]

Спасибо за быстрый ответ.