关于调用动态库的问题，

Question

procedure TForm1.Button1Click(Sender: TObject);
type
  TInStr = function(a: integer; b: integer):integer;
var
  a, b, ii: integer;
  PFunc: TInStr;
  Moudle: integer
begin
  a := 1;
  b := 2;
  Moudle := Loadlibrary('d:\test10.dll');
  if Moudle <> 0then
  begin
    Pfunc := GetProcAddress(Moudle,Pchar('JiSuan'));
    if @Pfunc <> nil then
      ii := PFunc(a, b);
  end;
  Freelibrary(Moudle);
end;