急,谁会把C++的函数转换成Delphi函数?

题目

急,谁会把C++的函数转换成Delphi函数?
u8 Read_Block(u8 block,u8 *KeyA,u8 *databuf,u8 keystyle);//读块
1、block,块号 0－63
2、keyA,密钥地址
3、databuf,数据缓冲区地址
4、keystyle,密钥类型,TYPEA=0,TYPEB=1
5、默认读出16字节
//返回值 0 成功 1:参数错误 2:块操作错误 3:命令执行错误
用Delphi的话,该怎么声明和使用呢
各参数怎么定义、赋值?

答案

function Read_Block( block:byte;KeyA,databuf:Pchar; keystyle:byte):byte;