请将这段VB程序译成delphi代码，500分(200分)

Declare Function data_comm Lib "C:/c51722/com_demo/win/getdata.DLL" (ByVal command As Integer, ByVal InLen As Integer, InData As Byte, ByVal OutLen As Integer, OutData As Byte, RetLen As Integer, status As Integer) As Integer
...
Dim yInData(100) As Byte
Dim yOutData(100) As Byte
...
k = data_comm(1, 1, yInData(0), 0, yOutData(0), RetLen, status)

请将这段VB程序译成delphi代码，500分
还有300分见<a href="http://www.delphibbs.com/delphibbs/dispq.asp?lid=653616">另一问题</a>

function data_comm(command, InLen: integer;
var InData: byte;
OutLen: integer;
var OutData: byte;
var RetLen, status: integer): integer;
external 'C:/c51722/com_demo/win/getdata.DLL' name 'data_comm';
...
var
yInData, yOutData: array[0..99] of byte;
k, RetLen, status: integer;
...
k:= data_comm(1, 1, yInData[0], 0, yOutData[0], RetLen, status);

我的问题已经解决，你的结果是错的，可是您是第一个来的，算你走运

接受答案了.

哪儿错了呀？我以为是对的呢。[:I]