объеденить 2 байта

[NEoMASTERR]

Здравствуйте, програмка получает пакет со списком ип адресов и портов
Пример
C1 C0 3A A5 6F 21 5С C1 C0 3A A5 6F 69 5C
и так далее

первые 4 байта - адрес, еще 2 байта - порт, 5С - разделитель
адрес вынимаю циклом, а вот с портом проблема, никак не могу понять как взять оба байта и перевести их в стринг (добавляю в мемо всю строку с адресом и портом)
Получается что то типа 193.192.58.165:11133 (должно быть 193.192.58.165:28449)

PHP код:

var
  s:string;
  b:array of byte;
  i,j:integer;
  port:Word;
begin
  SetLength(b,AData.size);
  AData.Read(b[1],AData.Size);
  i:=25;                                //брать байты будем начиная с 25-ого
  j:=1;
  while i<>AData.Size do
  begin

    if b[i]=$5C then
    begin
      mmo1.Lines.Add(s);
      s:='';
      Inc(i);
      Continue;
    end;

    if j=5 then
    begin
      port:=b[i]*100+b[i+1];         //байт 6F*100+21 = 6F00+21 = 6F21
      s:=s+':'+inttostr(port);
      j:=1;
      inc(i);
    end
    else
    begin
      s:=s+inttostr(b[i]);
      if j<>4 then s:=s+'.';
      inc(j);
    end;

    inc(i);
  end;
end; 


оч надеюсь на вашу помощь, часа 4 мучаюсь никак не получается)

[NEoMASTERR]

port:=b[i]*256+b[i+1];

Нашел на форуме))
Всем спасибо, отбой