跪求大神把这段C++代码转换成Delphi

Question

void spacedecryption ( char * Buff, int  Size,  char * AddTable)
{	
		for (int i=0, j=0; i< Size; i++)
		{		
			j++;				
			Buff[i] =Buff[i]^AddTable[j];
			Sleep(0);
			if (i% 5 == 0)
				j=0;	
		}
}
unsigned char MyFileTabLe[]={'0xBA', '0x13', '0xEF', '520', '0xDD'};

Answer 1

procedure spacedecryption(Buff: PAnsiChar; Size: Integer; AddTable: PAnsiChar);
var
  i, j: Integer;
begin
  j := 0;
  for i := 0 to Size - 1 do
  begin
    Inc(j);
    Buff[i] := AnsiChar(Byte(Buff[i]) xor Byte(AddTable[j]));
    Sleep(0);
    if (i mod 5 = 0) then
      j := 0;
  end;
end;

var
  MyFileTabLe: array[0..4] of AnsiChar;
begin
  MyFileTabLe[0] := #$BA;
  MyFileTabLe[1] := #$13;
  MyFileTabLe[2] := #$EF;
  MyFileTabLe[3] := #$08;
  MyFileTabLe[4] := #$DD;
end.