punteros a funciones

[GunMiNiHo]

hola tengo un problema, lo que intento hacer es obtener la address de un procedure de la memoria y despues restarla con otra y despues volver a restarle 5 y esa funcion me devuelva un DWORD como valor de retorno:

aca el codigo:

Código Delphi [-]
procedure creaItemFilter; stdcall;

var
      punteroProc: procedure(parametro: boolean; otro: string);

begin
punteroProc:=@ItemFilterASM;
PByte(ItemFilter)^:=$E9;
PDword(ItemFilter+1)^:=jmp($0050E851,punteroProc);
end;

Código Delphi [-]
function jmp(from,tooWORD): DWORD;
var
  jmpto:dword;
begin
  jmpto:=dword(from)-NativeInt(too)-5;
  Result := jmpto;
end;

Código Delphi [-]
procedure ItemFilterASM(parametro: boolean; otro: string);stdcall;

ahi estan las declaraciones me bota el siguiente error el compilador en el jmp($0050E851,punteroProc); el cual es el siguiente:

not enough actual parameters

que parametro estoy olvidando??? o.o!!!