A C++ function to delphi
please how could this C++ function be converted to Delphi  :

    int To_Asm_Fnc(dword Amem, dword Al, dword Ac) {
    int b = 0;
        asm ("push %%ecx; \
                 call %%eax; \
                 pop  %%ecx;"
             : "=Al" (b) /* output value */
             : "Al" (mem), "Ac" (Al), "d" (Ac) /* input value */
             );
        return b;
    }

and this's my delphi attempt 

    Function To_Asm_Fnc(Amem,Al,Ac:dword):Integer;
    var
    b:Integer;
    begin
    Result:=0;
    b:=0;
    //*******
    { i really didn't get it as in the c++ code }
    //*******
    Result:=b;
    end;

many thanks 
A C++ function to delphi
===

please how could this C++ function be converted to Delphi  :

    int To_Asm_Fnc(dword Amem, dword Al, dword Ac) {
    int b = 0;
        asm ("push %%ecx; \
                 call %%eax; \
                 pop  %%ecx;"
             : "=Al" (b) /* output value */
             : "Al" (mem), "Ac" (Al), "d" (Ac) /* input value */
             );
        return b;
    }

and this's my delphi attempt 

    Function To_Asm_Fnc(Amem,Al,Ac:dword):Integer;
    var
    b:Integer;
    begin
    Result:=0;
    b:=0;
    //*******
    { i really didn't get it as in the c++ code }
    //*******
    Result:=b;
    end;

many thanks 