VC源码如下：
unsigned char CmCode;
unsigned char PmCode;
int CmDataLen;
unsigned char CmData[1024];
unsigned char ReType;
unsigned char SEt0;
unsigned char SEt1;
int ReDataLen;
unsigned char ReData[1024];
memset(CmData,0x00,sizeof(CmData));
CmCode=0x33;
PmCode=0x30;
CmDataLen=0;
rc=RS232_ExeCommand(hCom,CmCode,PmCode,CmDataLen,CmData,&ReType,&SEt0,&SEt1,&ReDataLen,ReData);
如何将函数参数中的 &SEt0,&SEt1,&ReDataLen 用delphi翻译一下。

var CmCode, PmCode, ReType, SEt0, SEt1:byte;
CmDataLen, ReDataLen:integer;
CmData, ReData:array [0..1023] of byte
fillchar(cmdata,sizeof(cmdata),0);
CmCode:=$33;
PmCode:=$30;
CmDataLen:=0;
rc=RS232_ExeCommand(hCom,CmCode,PmCode,CmDataLen,CmData,@ReType,@SEt0,@SEt1,@ReDataLen,ReData);