C++ --> Delphi
typedef int apiReturn; // 函数返回值类型

//连接读写器
apiReturn _stdcall ConnectScanner(HANDLE *hScanner, char *szPort, int nBaudRate);

//断开连接
apiReturn _stdcall DisconnectScanner(HANDLE hScanner);
[解决办法]
pPort:array[0..9]of char;
sPort:string;

ZeroMemory(@pPort,10);
sPort:='COM1';

CopyMemory(@pPort,pchar(sPort),10);

调用的时候试试这个代码