帮忙把几个vc函数转成delphi函数(100)

1、struct CardInfo{ char* buttonID; double voltage; CTime readTime;};2、char* ReadCardInfo(int id); 返回一个CardInfo结构体类型;3、Bool SetConfigure(char* comPort,int baudrate,int dataBit,double stopBit,char* verifyType);谢谢！！感觉这几个vc函数返回值 比较难处理，请帮忙转一下

1、type Pcardinfo =^Cardinfo;Cardinfo=Packed recordbegin buttonidchar; voltage:Extended; readtime:tdatetime;end;2、readcardinfo(id:int)char;3、setconfigure(comportchar;baudrate,databit:int;stopbit:extended;verifytypechar):boolean;