Ayuden a convertir este codigo

[carlosprotos]

Necesito q alguien que tenga mas experiencia pueda convertir este codigo de C++ a delphi

        typedef DWORD(__thiscall *oGetLocal)(void *ThisPtr);
	typedef DWORD(__thiscall *oGetIndex)(void *ThisPtr, BYTE bIndex);
        typedef DWORD(__cdecl *oGetInfo)(BYTE bIndex);

     oGetLocal GetLocal = (oGetLocal)(0x14E8FF);
     oGetIndex GetIndex = (oGetIndex)(0x14E800);
     oGetInfo GetInfo= (oGetInfo)(0xEA130);

     void *PThis = (void *)(pTable + 0xEC);

for (BYTE i = 0; i < 10; i++)
{
CLocalPos *pLocal = (CLocalPos *)GetIndex(pThis, i);
CInfo *pInfo = (CInfo *)GetInfo(pLocal->Index);

if (pLocal == 0 || pInfo== 0 )
continue;


}

Ojala puedan ayudarme

[mamcx]

Es mucho mejor que digas que quieres concretamente y asi habra una solucion en Delphi idiomatica.

[Ñuño Martínez]

Aparte de que ese código está fatalmente mal escrito. No ya que comparar punteros con valores enteros debería estar castigado con cien latigazos por cada vez que se haga, sino que encima usa direccionamiento directo (más vale que sea para un microcontrolador).