Из Visual c++ в Delphi

Необходимо перевести небольшой код из Visual c++ в Delphi

можно только 1 и 5 строчку

1 for(;l3 && (part2remain > 0);l3--) {

2 struct newhuff *h = htc+gr_info->count1table_select;

3 register short *val = h->table,a;

4

5 while((a=*val++)

6 part2remain--;

7 if(part2remain

8 part2remain++;

9 a = 0;

10 break;

11 }

if (get1bit())

val -= a;

}

И еще

int mc, *m;

mc=*m++