热心人帮忙转一句代码 [C 转 Delphi]

Question

while(i >= 0){
tmp2 = (*(song + i)) + tmp2 + (tmp2 << (i%2 + 4));
i--;
}我是这样转的：
While (i >= 0) do
  Begin
  tmp2 := //这里该如何？;
  Dec(i);
  end;

Answer 1

僵哥，不好意思：
其中：
int i;
char* song

Answer 2

while(i >= 0) do begin
        tmp2 := (PShortInt(LongWord(song) + i)^) + tmp2 + (tmp2 shl ((i mod 2) + 4));
        dec(i);
    end;