C Code in Delphi

[caN]

Hallo,
Also Ich möchte gern wissen wie ich das in Delphi machen kann.
Ich danke euch schonmal im Vorraus für die Antworten.

Code:

int (*funcdll)(const uint8_t *p, const int length, const void *xp);

    struct {
        uint32_t    n1;       
        uint8_t     *it;      
        uint32_t    n2;       
        uint32_t    n3;       
        uint32_t    n4;      
        uint32_t    len;    
        uint32_t    n5;       
        uint8_t     n6[40];  
    } struct_dll;

    hLib = LoadLibrary(DLL);
    if(!hLib) std_err();

    funcdll = (void *)hLib + OFFSET;

    memset(&struct_dll, 0, sizeof(struct_dll));

    funcdll(stritt, strlen(stritt), &struct_dll);

    es = strdup(struct_dll.it);
    FreeLibrary(hLib);

[edit=SirThornberry]c-tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]