Первести код C++ в Delphi

[The SCS]

DWORD (__fastcall *OldDrawCrate)(void* pthis, DWORD edx, DWORD a1, DWORD a2,DWORD a3,DWORD a4)=(DWORD (__fastcall *)(void*, DWORD, DWORD, DWORD, DWORD, 
DWORD))0x004DA0E0;
DWORD (__fastcall *OldDrawCrateNxt)(void* pthis, DWORD edx, DWORD a1, DWORD a2,DWORD a3,DWORD a4);

DWORD __fastcall NewDrawCrate(void* pthis, DWORD edx, DWORD a1, DWORD a2,DWORD a3,DWORD a4) /* NewDrawCrate */
{
	if(((a2-2)!=1)) return OldDrawCrateNxt(pthis,edx,a1,a2,a3,a4);
	BYTE Tmp=*(BYTE*)(*(DWORD*)(*(DWORD*)((DWORD)pthis+0x34)+0x24)+0xDA98);
	*(BYTE*)(*(DWORD*)(*(DWORD*)((DWORD)pthis+0x34)+0x24)+0xDA98)=1;
	DWORD RetVal= OldDrawCrateNxt(pthis,edx,a1,a2,a3,a4);
	*(BYTE*)(*(DWORD*)(*(DWORD*)((DWORD)pthis+0x34)+0x24)+0xDA98)=Tmp;
	return RetVal;
}  /* *NewDrawCrate* */

Помогите пожалуйста перевести в delphi

[G_R]

У меня вопрос попроще. как вот это перевести?

char l[] = { 73,32,108,111,118,101,32,121,111,11 7,0};
printf("%s\n",l);

[idec]

Сообщение от G_R

У меня вопрос попроще. как вот это перевести?

char l[] = { 73,32,108,111,118,101,32,121,111,11 7,0};
printf("%s\n",l);

var:
j:integer;
i:array[1..11] of integer;
s:char;
begin
i[1] = 73; i[2] = 32; и тд ....
for j = 1 to 11
begin
Str(i[j], s);
write(s);
end;
end.