1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure Wrapper(p1, p2: DWORD); stdcall;

    Procedure ActualFunc(__this: Pointer; P1, p2: DWORD);
    Begin
        //Hier den eigentlichen Code für den Hook, kein ASM mehr nötig
    end;

asm
    //Secure the Stack Frame
    push    ebp
    mov     ebp, esp
    SUB     esp, $0C

    //Arguments seem to come from: [EBP], [EBP+4] und ECX
    //Copy them over for register (Pascal)
    MOV     EAX, DWORD PTR [EBP]
    MOV     EDX, DWORD PTR [EBP+4]
    //MOV     ECX, ECX // aka "NOP" ;-)

    CALL ActualFunc

    //Clear our internal stackframe
    POP     EBP
end;  //RET generated by compiler					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure CallThisfunc(F: Pointer; __this: Pointer; d1, d2: DWORD);
asm
    //Stack contains our return address at the top, just build the new stackframe from here
    PUSH    ECX  //put d1 onto the stack
    XCHG    ECX, DWORD PTR [ESP+8] //read d2
    XCHG    ECX, DWORD PTR [ESP] //d2 onto stack, d1 into ECX
    PUSH    ECX  //Put d1 onto the stack
    XCHG    ECX, EDX //Get the __this pointer into ECX
    PUSH    EAX  //Put the function pointer onto the stack
end; //The RET now jumps to our destination