Передать параметры в функцию.

#define LIBINTERSECT_DECL extern "C" __declspec(dllexport)

LIBINTERSECT_DECL int __stdcall test_func_lib(int l, int b)
{
    if(l == 1)
    {
        return 1;
    }
   
    return 2;
}

procedure TForm1.Button1Click(Sender: TObject);
var
LibHandle: THandle;
test_func_lib: function(l: Integer; b: Integer):Integer;
test_bool: Integer;

begin
  LibHandle := LoadLibrary('test_dll.dll');
  if LibHandle >= 32 then begin
    @test_func_lib := GetProcAddress(LibHandle,'test_func_lib');
    if @test_func_lib <> nil then
    begin
       test_bool := test_func_lib(1, 1);
       showMessage (IntToStr(test_func_lib(1, 1)));
    end;
  end;
FreeLibrary(LibHandle);

    showMessage (IntToStr(test_bool));
end;