GetInstructionSize () BEA Engine с использованием Delphi / Lazarus

Question

Я вижу это:

http://s1.picofile.com/file/7828818488/LDE64U.pas.html

Теперь я хочу использовать, чтобы разобрать и получить размер инструкции, как мне это сделать?Я пытаюсь что-то вроде этого

uses
  Windows, LDE64U;

procedure getFunctionSize;
var
  lpAddress: LPVOID;
begin
  lpAddress := GetProcessAddress(GetModuleHandle('user32.dll'), FindWindowA);
  asm
    mov edx, 64
    mov rcx, lpAddress
    call LDE
  end;
end;

begin
  getFunctionSize;
end.