Перевод с С++(QT5) в Delphi

[arxlex]

Преобразование байтов в числа:
Рабочий исходный код (QT5):

unsigned int bytes_to_int(QByteArray data, int start)
{
    unsigned int result=0;
    unsigned char temp;

    temp = data[start + 3];
    result = result | temp;
    result = result << 8;

    temp = data[start + 2];
    result = result | temp;
    result = result << 8;

    temp = data[start + 1];
    result = result | temp;
    result = result << 8;

    temp = data[start];
    result = result | temp;

    return result;
}

Моя версия перевода(не работает=():

function ByteToInt(const s: string; base: integer): integer;
var
  i: integer;
  c: Char;
begin
  i := 0;
  c := s[base + 3];
  i := i + ord(c);
  i := i shl 8;
  c := s[base + 2];
  i := i + ord(c);
  i := i shl 8;
  c := s[base + 1];
  i := i + ord(c);
  i := i shl 8;
  c := s[base];
  i := i + ord(c);
  Result := i;
end;

К сожелению мой перевод показывает не корректные значения. Кто подскажет мне с переводом. С меня Спасибо