delphi 代码，求解释解决方案

delphi 代码，求解释

  ipAddress := StringReplace('172,016,087,003', '.', ',', [rfReplaceAll]);

  slList := TStringlist.Create;
  slList.CommaText := ipAddress;

  fillchar(arr, sizeof(arr), 0);

  pbyte(@arr[0])^ := strtoint(slList.strings[2]);
  pbyte(@arr[1])^ := strtoint(slList.strings[3]);


  word_ip := pword(@arr[0])^; //855 ？？？？

能告诉我这部分代码主要是想要什么结果，最后那句为什么是855？ Delphi
[解决办法]
32位int，delphi有 integer和dword 分别对应 有/无符号整数
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
  MyIPString :TStringList;
  intIP :Longword;
  i :integer;
begin
  MyIPString := TStringList.Create;
  intIP := 0;
  try
    MyIPString.DelimitedText :=StringReplace('172,16,87,164', '.', ',', [rfReplaceAll]);
    for i := 0 to MyIPString.Count-1 do
    begin
      intIP := intIP+StrToInt(MyIPString.Strings[i]) shl ((3-i)*8);
    end;
  finally
    FreeAndNil(MyIPString);
  end;
  showmessage(IntToStr(intIP));
end;
結果：2886752164，是不是這個數？