Delphi怎么调用函数接口？
---------
调用函数接口如下：

1. long PJQ_Open()
功能：打开usb设备虚拟串口,并与设备建立连接
返回值：成功:返回相应的串口句柄 >0
失败:返回 -1
---------

请问上述long PJQ_Open()如何调用？
请举个例子说明一下
[解决办法]
是DLL导出的接口吗？

function PJQ_Open: LongInt; stdcall; external 'xxx.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin   
  if PJQ_Open = -1 then
    // 失败
  else
    // 成功
end;