1:
2:
3:
4:
5:
6:
7:
8:
9:

extern "C" {
__declspec(dllexport) bool func1(unsigned short int value1, unsigned short int value2);
}

__declspec(dllexport) bool func1(unsigned short int vendorID, unsigned short int productID) {
    vID = vendorID;
    pID = productID;
    return true;
}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

type
TFNfunc1_STDCALL = function(value1, value2: Word  ): boolean; stdcall;

var
func1_STDCALL: TFNfunc1_STDCALL = nil;

procedure_1:
lib := LoadLibrary('MyTestLib.dll');
@func1_STDCALL := GetProcAddress(lib, '_func1');

procedure TForm1.Button2Click(Sender: TObject);
var
  vendorID : Word  ;
  productID : Word  ;
  callOk : boolean;
  I:Word;
begin
  vendorID := 1003;
  productID :=  8211;
  callOk := func1_STDCALL(vendorID, productID);

  if callOk = True then begin
      ShowMessage('func1_STDCALL  ok');
  end else begin
      ShowMessage('func1_STDCALL  nicht ok !!');
  end;
  ShowMessage('Die Message wird noch angezeigt!');
end;