小弟我把几句C++的代码翻译成Delphi，请帮忙看看翻译的有没有有关问题

我把几句C++的代码翻译成Delphi，请帮忙看看翻译的有没有问题
大家好，我是做Delphi开发的。最近在做一个功能，需要把一段C++代码翻译成Delphi的，请大家帮忙看一下，我翻译的有没有问题。

bool packetM::UpdateFirstCmd(int len,QByteArray &strRec,int DevID)

    strRec[7]=devID & 0xff;

    strRec[8]=devID>>8 & 0xff;


    if(3-i)

      pos<<=8;


    for(int i=0;i<4;i++)

      strRec[13+i]=(char)(len>>(i*8) & 0xff);


    lresult32=0;

    lresult32=Crc32::GetCRC32((unsigned char *)strRec.constData(),17,lresult32);

    

    QString strSend=strFile.mid(pos*2,len*2);

function UpdateFirstCmd(len:Integer;strRec:TBytes;DevID:Integer);

    strRec[7]:=devID and $ff;

    strRec[8]:=(devID shr 8) and $ff;


    if(3-i)>0 then

      pos:=pos shl 8;


    for i:=0 to 3 do

      strRec[13+i]:=len shr (i*8) and $ff;


    lresult32:=0;

    lresult32:=GetCRC32(@strRec[0],17,lresult32);


    strSend := Copy(strFile,pos*2,len*2);

------解决方案--------------------

function UpdateFirstCmd(len:Integer;strRec:TBytes;DevID:Integer);

改为

function UpdateFirstCmd(len:Integer;strRec:TBytes;DevID:Integer): Boolean;

------解决方案--------------------
写好后，测试功能的正确与否。。
------解决方案--------------------

lresult32=0;

    lresult32=Crc32::GetCRC32((unsigned char *)strRec.constData(),17,lresult32);

     

    QString strSend=strFile.mid(pos*2,len*2);

LRESULT :WIN32环境下Windows进程或者回调函数的返回值 

Result:=0;

    Result:=GetCRC32(@strRec[0],17,lresult32);

 

    strSend := Copy(strFile,pos*2,len*2);